anchor.diff:      procedure InitLock;
       procedure InitReadWriteLock;
       procedure Move(CurIndex, NewIndex: Integer);
  -    function Remove(const Value: Variant): Integer;
  +    function Remove(const Value: Variant): Integer; overload;
  +    function Remove(const Value: Variant; Direction: TDirection): Integer; overload;
       procedure Pack;
       procedure Reverse;
       procedure Sort; overload;
  
positive.code:   EHproseException = class(Exception);
    EHashBucketError = class(Exception);
    EArrayListError = class(Exception);
  
    IHproseFilter = interface
    ['{4AD7CCF2-1121-4CA4-92A7-5704C5956BA4}']
  
negative.code:   if Index >= FCount then FCount := Index + 1;
  
    FList[Index] := Value;
  end;
  
  function TArrayList.ToArray: TVariants;
  