TProgressEvent type

Unit
QDB

Declaration
TProgressEvent = procedure(Sender : TObject; Percent : TPercentage; Kind : TProgressOrigin) of object;

Description
Lengthy processes trigger the ProgressUpdate event (of type TProgressEvent) at intervals to signal their degree of completion. Percent is the degree of completion and Kind refers to the process that is underway.