Source position: fpdbexport.pp line 125
type TExportProgressEvent = procedure(
Sender: TObject;
const ItemNo: Integer
) of object;