свой метод Sort для TList<MyType>

[Sibedir]

unit MyListSorterUnit;

interface

uses
  System.Generics.Defaults, System.Generics.Collections;

type
  TMySorterForListOf<T> = class
  private
    class procedure UnSafeDoSort (const AList: TList<T>; const AComparer: IComparer<T>); static;
  public
    class procedure DoSort(const AList: TList<T>; const AComparer: IComparer<T> = nil); static;
  end;

implementation

{ TMySorterForListOf<T> }

class procedure TMySorterForListOf<T>.DoSort(const AList: TList<T>; const AComparer: IComparer<T> = nil);
var
  FComparer: IComparer<T>;
begin
  FComparer := AComparer;
  if FComparer = nil then FComparer := TComparer<T>.Default;

  if (AList.Count < 1024) then AList.Sort (FComparer)
                          else UnSafeDoSort (AList, FComparer);
end;

class procedure TMySorterForListOf<T>.UnSafeDoSort(const AList: TList<T>; const AComparer: IComparer<T>);
begin
  // Моя супер-пупер сортировка
end;

end.

И пример использования

var
{...}
  tmp: TList<TAnyType>;
{...}
begin
{...}
  tmp := TList<TAnyType>.Create ();
{...}
  TMySorterForListOf<TAnyType>.DoSort(tmp);
{...}

[Sibedir]

DIONISKA, а вообще желание связываться с хэлперами окончательно отпало после того как почитал комментарии в коде к хэлперам, оставленные разработчиками самим себе И это не камень в адрес разработчиков. Судя по мануалам, хелперы не для пользования программистами, они и есть для самих разработчиков. Камень в их огород у меня в соседней ветке