Source position: fpcunitreport.pp line 28
type TWriteTestFooterEvent = procedure(
Sender: TObject;
ATest: TTest;
ALevel: Integer;
ATiming: TDateTime
) of object;