anchor.diff:  //Add line but without timestamp
   procedure TKMLog.AddLineNoTime(const aText: UnicodeString; aLogType: TKMLogMessageType; aWithPrefix: Boolean = True;
                                  aDoCloseFile: Boolean = True);
  +var
  +  lockedHere: Boolean;
   begin
     if Self = nil then Exit;
   
  
positive.code:   {$ENDIF}
  
    inherited;
  end;
  
  
  
negative.code: 
      procedure SetDefaultMessageTypes;
  
      property MultithreadLogging: Boolean read GetMultithreadLogging write SetMultithreadLogging;
  
      // Add line if TestValue=false
      procedure AddAssert(const aMessageText: UnicodeString);
      // AddToLog simply adds the text
  