anchor.diff:    Result := FValues.Contains(AValue);
   end;
   
  -constructor THashMap.Create(ACapacity: Integer; Factor: Single; Sync,
  +constructor THashMap.Create(ACapacity: Integer; Factor: Single; Sync: Boolean;
     ReadWriteSync: Boolean);
   begin
     if Sync then InitLock;
  
positive.code:     procedure Insert(Item: PHashItem);
      function Remove(HashCode, Index: Integer): PHashItem;
    public
      constructor Create(Capacity: Integer = 16; Factor: Single = 0.75);
      destructor Destroy; override;
      function Add(HashCode, Index: Integer): PHashItem;
      procedure Clear;
  
negative.code: 
  { TCaseInsensitiveHashedList }
  {$IFDEF BCB}
  constructor TCaseInsensitiveHashedList.Create4(ACapacity: Integer;
    Factor: Single; Sync, ReadWriteSync: Boolean);
  begin
    Create(ACapacity, Factor, Sync, ReadWriteSync);
  end;
  {$ENDIF}
  
  