anchor.diff:  
   //{$IFDEF DESKTOP}
   procedure TKMemoryStreamBinary.ReadA(out Value: AnsiString);
  -var I: Word;
  +var
  +  I: Word;
   begin
     Read(I, SizeOf(I));
     SetLength(Value, I);
  
positive.code:         Break;
        end;
    end;
  var I: Integer;
  begin
    if not fEnabled then Exit;
  
  
negative.code: procedure TKMMapsCRCList.LoadFromString(const aString: UnicodeString);
  var
    I: Integer;
    mapCRC : Int64;
    stringList: TStringList;
  begin
    if not fEnabled then Exit;
  
    fMapsList.Clear;
    stringList := TStringList.Create;
    stringList.Delimiter := MAPS_CRC_DELIMITER;
    stringList.DelimitedText   := Trim(aString);
  
    for I := 0 to stringList.Count - 1 do
    begin
      if TryStrToInt64(Trim(stringList[I]), mapCRC)
        and (mapCRC > 0)
        and not Contains(Cardinal(mapCRC)) then
        fMapsList.Add(Trim(stringList[I]));
    end;
  
    stringList.Free;
  end;
  
  
  