anchor.diff:  end;
   {$ENDIF}
   
  -function ShuffleStringArray(const StringArray: array of string): TStringArray;
  -var
  -  I, J, N: Integer;
  -  Temp: string;
  -begin
  -  N := Length(StringArray);
  -  SetLength(Result, N);
  -  for I := 0 to N - 1 do Result[I] := StringArray[I];
  -  if N > 1 then begin
  -    Randomize;
  -    for I := 0 to N - 1 do begin
  -      J := Random(N);
  -      if I <> J then begin
  -        Temp := Result[I];
  -        Result[I] := Result[J];
  -        Result[J] := Temp;
  -      end;
  -    end;
  -  end;
  -end;
  -
   {$IF NOT DEFINED(DELPHI2009_UP) AND NOT DEFINED(FPC)}
   const
     MemoryDelta = $2000; { Must be a power of 2 }
  
positive.code:   end;
  end;
  
  procedure TAbstractList.TrimExcess;
  begin
    SetCapacity(Count);
  
negative.code:     Reverse
    else if AName = 'SORT' then
      Sort
    else if AName = 'SHUFFLE' then
      Shuffle
    else if AName = 'TRIMEXCESS' then
      TrimExcess
    else
  