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:    writeReport('</results>');
     writeReport('</test-suite>');
  
     runtime := (GetTickCount - startTime) / 1000;
     if testResult.RunCount > 0 then
       successRate :=  Trunc(
          ((testResult.runCount - testResult.failureCount - testResult.errorCount)
  
negative.code: var
    sFileName : string;
  begin
     FStartTime := GetTickCount;
     FStartDateTime := Now;
     FOutputBuffer := TMemoryStream.Create;
     sFileName := ExtractFileName(ParamStr(0));
     writeReport(Format('<application name="%s" />',[sFileName]));
  