Source position: fpcunitreport.pp line 38
type TFailureEvent = procedure(
Sender: TObject;
ATest: TTest;
AFailure: TTestFailure
) of object;