Applies toTTestResult
DeclarationFunction RunCount: integer; Implementation
function TTestResult.RunCount: integer; begin result := fRunTests; End;