anchor.diff:  end;
   
   
  -//Same line but without timestamp
  -procedure TKMLog.AddLineNoTime(const aText: UnicodeString; aDoCloseFile: Boolean = True);
  -begin
  -  if Self = nil then Exit;
  +//Add line but without timestamp
  +procedure TKMLog.AddLineNoTime(const aText: UnicodeString; aLogType: TKMLogMessageType; aDoCloseFile: Boolean = True);
  +begin
  +  if Self = nil then Exit;
  +
  +  if BLOCK_FILE_WRITE then Exit;
  +
  +  if not (aLogType in MessageTypes) then // write into log only for allowed types
  +    Exit;
   
     if not FileExists(fLogPath) then
       InitLog;  // Recreate log file, if it was deleted
  
positive.code: end;
  
  
  procedure TKMLog.AddTime(const aText: UnicodeString);
  begin
    AddLineTime(aText);
  
negative.code: procedure TKMLog.LogRandomChecks(const aText: UnicodeString);
  begin
    if Self = nil then Exit;
    AddLineNoTime(aText, lmtRandomChecks);
  end;
  
  
  