Source position: fppdfparser.pp line 58
type TPDFProgressEvent = procedure(
Sender: TObject;
aKind: TPDFProgressKind;
aCurrent: Integer;
aCount: Integer
) of object;