anchor.diff:      Reverse
     else if AName = 'SORT' then
       Sort
  +  else if AName = 'SHUFFLE' then
  +    Shuffle
     else if AName = 'TRIMEXCESS' then
       TrimExcess
     else
  
positive.code:     procedure Reverse;
      procedure Sort; overload;
      procedure Sort(CompareProc: TListCompareMethod); overload;
      procedure TrimExcess;
      property Item[Index: Integer]: Variant read Get write Put; default;
      property Capacity: Integer read GetCapacity write SetCapacity;
  
negative.code: var
    Elem: Variant;
  begin
    if Index1 = Index2 then exit;
    if (Index1 < 0) or (Index1 >= FCount) then
      raise EArrayListError.CreateResFmt(@SListIndexError, [Index1]);
    if (Index2 < 0) or (Index2 >= FCount) then
  