Source position: fpcunitreport.pp line 39
type TTestEvent = procedure(
Sender: TObject;
ATest: TTest
) of object;