anchor.diff:    Move(PChar(AString)^, FData[FPosition], Count * SizeOf(Char));
     Inc(FPosition, Count);
     if FPosition > FLength then FLength := FPosition;
  +end;
  +
  +function ArrayList(const Elements: array of const): IArrayList;
  +begin
  +  Result := TArrayList.Create(Elements);
  +end;
  +
  +function HashedList(const Elements: array of const): IHashedList;
  +begin
  +  Result := THashedList.Create(Elements);
  +end;
  +
  +function CaseInsensitiveArrayList(const Elements: array of const): ICaseInsensitiveArrayList;
  +begin
  +  Result := TCaseInsensitiveArrayList.Create(Elements);
  +end;
  +
  +function CaseInsensitiveHashedList(const Elements: array of const): ICaseInsensitiveHashedList;
  +begin
  +  Result := TCaseInsensitiveHashedList.Create(Elements);
  +end;
  +
  +function HashMap(const Elements: array of const): IHashMap;
  +begin
  +  Result := THashMap.Create(Elements);
  +end;
  +
  +function HashedMap(const Elements: array of const): IHashedMap;
  +begin
  +  Result := THashedMap.Create(Elements);
  +end;
  +
  +function CaseInsensitiveHashMap(const Elements: array of const): ICaseInsensitiveHashMap;
  +begin
  +  Result := TCaseInsensitiveHashMap.Create(Elements);
  +end;
  +
  +function CaseInsensitiveHashedMap(const Elements: array of const): ICaseInsensitiveHashedMap;
  +begin
  +  Result := TCaseInsensitiveHashedMap.Create(Elements);
   end;
   
   { TVarObjectType }
  
positive.code: end;
  
  initialization
    HproseClassMap := TCaseInsensitiveHashedMap.Create(False, True);
    HproseInterfaceMap := TCaseInsensitiveHashedMap.Create(False, True);
  
  
negative.code: function GetClassByInterface(const IID: TGUID): TInterfacedClass;
  function HasRegisterWithInterface(const AClass: TInterfacedClass): Boolean;
  function GetInterfaceByClass(const AClass: TInterfacedClass): TGUID;
  
  function ArrayList(const Elements: array of const): IArrayList;
  function HashedList(const Elements: array of const): IHashedList;
  function CaseInsensitiveArrayList(const Elements: array of const): ICaseInsensitiveArrayList;
  function CaseInsensitiveHashedList(const Elements: array of const): ICaseInsensitiveHashedList;
  
  function HashMap(const Elements: array of const): IHashMap;
  function HashedMap(const Elements: array of const): IHashedMap;
  function CaseInsensitiveHashMap(const Elements: array of const): ICaseInsensitiveHashMap;
  function CaseInsensitiveHashedMap(const Elements: array of const): ICaseInsensitiveHashedMap;
  
  type
    TClassManager = class
  