Source position: ELDsgxTypes.pas line 138
type TplFTPProgressEvent = procedure(
Sender: TObject;
Position: Integer;
Url: string
) of object;