Applies toTTextTestListener
DeclarationFunction Report(r :TTestResult): string;Implementation
function TTextTestListener.Report(r :TTestResult) :string; begin result := PrintHeader(r) + PrintErrors(r) + PrintFailures(r); End;