Source position: fpjsonreport.pp line 36
type TWriteReportJSONEvent = procedure(
Sender: TObject;
JSON: TJSONObject
) of object;