TWriteTestSuiteFooterEvent

type TWriteTestSuiteFooterEvent = procedure(

  Sender: TObject;

  ATestSuite: TTestSuite;

  ALevel: Integer;

  ATiming: TDateTime;

  ANumRuns: Integer;

  ANumErrors: Integer;

  ANumFailures: Integer;

  ANumIgnores: Integer

) of object;