Source position: fpcunitreport.pp line 33
type TWriteTestSuiteHeaderEvent = procedure(
Sender: TObject;
ATestSuite: TTestSuite;
ALevel: Integer
) of object;