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