Source position: fpjsonrtti.pp line 39
type TJSONStreamEvent = procedure(
Sender: TObject;
AObject: TObject;
JSON: TJSONObject
) of object;