anchor.diff:    try
       ForceDirectories(ExtractFilePath(fLogPath));
   
  -    AssignFile(fl, fLogPath);
  -    Rewrite(fl);
  +    AssignFile(fLogFile, fLogPath);
  +    Rewrite(fLogFile);
       //           hh:nn:ss.zzz 12345.678s 1234567ms     text-text-text
  -    WriteLn(fl, '   Timestamp    Elapsed     Delta     Description');
  -    CloseFile(fl);
  +    WriteLn(fLogFile, '   Timestamp    Elapsed     Delta     Description');
  +    CloseFile(fLogFile);
     except
       on Ex: Exception do
       begin
  
positive.code:   TKMLog = class
    private
      CS: TCriticalSection;
      fl: textfile;
      fLogPath: UnicodeString;
      fFirstTick: cardinal;
      fPreviousTick: cardinal;
  
negative.code:   if MultithreadLogging then
      Lock;
    try
      Append(fLogFile);
      if aWithPrefix then
        WriteLn(fLogFile, '                                      ' + aText)
      else
        WriteLn(fLogFile, aText);
  
      if aDoCloseFile then
        CloseFile(fLogFile);
    finally
      if MultithreadLogging then
        UnLock;
  