Progress Event
Occurs when PercentDone of the input is read.
Syntax
type TProgressEvent = procedure ( Sender: TObject; PercentDone: Integer ) of Object;
property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
Remarks
The ProgressStep property determines how often the event is fired.