Source position: fpjsonrtti.pp line 128
type TJSONRestorePropertyEvent = procedure(
Sender: TObject;
AObject: TObject;
Info: PPropInfo;
AValue: TJSONData;
var Handled: Boolean
) of object;