Progress Event
Fired whenever data is being transferred between the localhost and RemoteHost .
Syntax
type TProgressEvent = procedure ( 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.