Source position: base_engine.pas line 2876
type TCompilerProgressEvent = procedure(
Sender: TObject;
ModuleNumber: Integer
) of object;