Source position: fpjsonrtti.pp line 33
type TJSONPropertyEvent = procedure(
Sender: TObject;
AObject: TObject;
Info: PPropInfo;
var Res: TJSONData
) of object;