anchor.diff:  
      if PrintReportToConsole then
      begin
  -      dtEndTime := now;
  -      dtRunTime := Now-dtStartTime;
  +      FEndDateTime := now;
  +      dtRunTime := Now-FStartDateTime;
         writeln;
         DecodeTime(dtRunTime, h,  m, s, l);
         writeln(Format('Time: %d:%2.2d:%2.2d.%d', [h, m, s, l]));
  
positive.code: var
  {$IFDEF UNICODE}
    Preamble: TBytes;
    Buffer : TBytes;
  {$ENDIF}
    runTime : Double;
    dtRunTime : TDateTime;
    successRate : Integer;
    h, m, s, l :Word;
    fs : TFileStream;
    sResult : string;
    sFileName : string;
    sNameSpace : string;
  
  
negative.code: begin
       if CompareText(suite.Name, ExtractFileName(Application.ExeName)) = 0 then
         Exit;
  
  
       writeReport('</results>');
       writeReport('</test-suite>');
       FSuiteStack.Delete(0);
  