Progress Event
Fired whenever data is being transferred between the localhost and RemoteHost .
Syntax
type TProgressEvent = procedure Progress(Sender: TObject; PercentDone: Integer) of object;property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
Remarks
The 'PercentDone' parameter shows which portion of the file has already been transferred.