Source position: zreport.pas line 741
type TZRGetFileNameEvent = procedure(
Sender: TObject;
var FileName: string
) of object;