Source position: ELDsgxTypes.pas line 162
type TplProgressEvent = procedure(
Sender: TObject;
Current: Integer;
Total: Integer
) of object;