anchor.diff:      end;
       Put(J + 1, Elem);
     end;
  +end;
  +
  +procedure TAbstractList.TrimExcess;
  +begin
  +  SetCapacity(Count);
   end;
   
   { TArrayList }
  
positive.code:     procedure Reverse;
      procedure Sort; overload;
      procedure Sort(CompareProc: TCompareMethod); overload;
      property Item[Index: Integer]: Variant read Get write Put; default;
      property Capacity: Integer read GetCapacity write SetCapacity;
      property Count: Integer read GetCount write SetCount;
  
negative.code:     procedure Reverse;
      procedure Sort; overload;
      procedure Sort(CompareProc: TCompareMethod); overload;
      procedure TrimExcess;
      property Item[Index: Integer]: Variant read Get write Put; default;
      property Capacity: Integer read GetCapacity write SetCapacity;
      property Count: Integer read GetCount write SetCount;
  