Progress Event
Fires periodically during the data transfer.
Syntax
type TProgressEvent = procedure ( Sender: TObject; Total: Int64; Current: Int64; var Cancel: Boolean ) of Object;
property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
Remarks
Use this event to check the progress of an upload or download operation. Total indicates the total number of bytes to be transferred; Current specifies how much data has been transferred so far, and Cancel gives you a chance to cancel the operation.