anchor.diff:      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;
  
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:     end;
      Put(J + 1, Elem);
    end;
  end;
  
  procedure TAbstractList.TrimExcess;
  begin
    SetCapacity(Count);
  end;
  
  { TArrayList }
  