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