Source position: fpcunitreport.pp line 26
type TWriteTestHeaderEvent = procedure(
Sender: TObject;
ATest: TTest;
ALevel: Integer;
ACount: Integer
) of object;