anchor.diff:        and (FKeys[I] <= MaxListSize) then Result.Put(FKeys[I], FValues[I]);
   end;
   
  -function THashMap.ToArrayList(Sync, ReadWriteSync: Boolean): TArrayList;
  +function THashMap.ToArrayList(Sync: Boolean; ReadWriteSync: Boolean
  +  ): TArrayList;
   var
     I: Integer;
   begin
  
positive.code:     procedure SetPosition(NewPosition: Integer);
      procedure SetCapacity(NewCapacity: Integer);
    public
      constructor Create(Capacity: Integer = 255); overload;
      constructor Create(const AString: string); overload;
      function ReadString(Count: Longint): string;
      procedure WriteString(const AString: string);
  
negative.code:     constructor Create(ACapacity: Integer; Factor: Single; Sync: Boolean = True;
        ReadWriteSync: Boolean = False); reintroduce; overload; virtual;
  {$IFDEF BCB}
      constructor Create3(ACapacity: Integer; Factor: Single;
        Sync: Boolean); virtual; // for C++ Builder
  {$ENDIF}
      destructor Destroy; override;
  