anchor.diff:  
   procedure TKMemoryStreamText.Write(const Value: TDateTime);
   var
  -  Str: String;
  -begin
  -  DateTimeToString(Str, 'dd.mm.yyyy hh:nn:ss.zzz', Value);
  -  WriteText(Str);
  +  str: String;
  +begin
  +  DateTimeToString(str, 'dd.mm.yyyy hh:nn:ss.zzz', Value);
  +  WriteText(str);
   end;
   
   
  
positive.code: 
  //Remove missing Favourites Maps from list, check if are of them are presented in the given maps CRC array.
  procedure TKMMapsCRCList.RemoveMissing(aMapsCRCArray: TKMCardinalArray);
    function ArrayContains(aValue: Cardinal): Boolean;
    var I: Integer;
    begin
      Result := False;
      for I := Low(aMapsCRCArray) to High(aMapsCRCArray) do
  
negative.code: end;
  
  procedure TKMemoryStreamBinary.WriteA(const Value: AnsiString);
  var
    I: Word;
  begin
    I := Length(Value);
    inherited Write(I, SizeOf(I));
  