anchor.diff:                    '<stat name="failures" value="'+intToStr(testResult.failureCount)+'" />'+CRLF+
                     '<stat name="errors" value="'+intToStr(testResult.errorCount)+'" />'+CRLF+
                     '<stat name="success-rate" value="'+intToStr(successRate)+'%" />'+CRLF+
  -                  '<stat name="started-at" value="'+DateTimeToStr(dtStartTime)+'" />'+CRLF+
  +                  '<stat name="started-at" value="'+DateTimeToStr(FStartDateTime)+'" />'+CRLF+
                     '<stat name="finished-at" value="'+DateTimeToStr(now)+'" />'+CRLF+
                     Format('<stat name="runtime" value="%1.3f"/>', [runtime])+CRLF+
                     '</statistics>'+CRLF+
  
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: 
     if PrintReportToConsole then
     begin
        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]));
  