Source position: jsonreader.pp line 85
type TOnJSONKey = procedure(
Sender: TObject;
const AKey: TJSONStringType
) of object;