Source position: IdComponent.pas line 105
type TWorkBeginEvent = procedure(
ASender: TObject;
AWorkMode: TWorkMode;
AWorkCountMax: Int64
) of object;