Source position: HTMLUn2.pas line 520
type ThtProgressEvent = procedure(
Sender: TObject;
Stage: TProgressStage;
PercentDone: Integer
) of object;