Source position: fpreport.pp line 284
type TFPReportGetValueEvent = procedure(
Sender: TObject;
const AValueName: string;
var AValue: variant
) of object;