Сорировка по алфавиту и по признаку в TList

[Человек_Борща]

Доброго времени суток!

Есть список элементов:
Название----Признак
--Арбуз--------2
--Ворота-------3
--Банан--------0
--Гольф--------1

Есть список где надо сортировать по алфавиту, и есть где надо сортировать по признаку.
Направление для сортировки по алфавиту: От а до я, сверху-вниз.
Т.е. и итоге список должен стать таким:
--Арбуз--------2
--Банан--------0
--Ворота-------3
--Гольф--------1


Направление для сортировки по признаку: От 0 до N, сверху-вниз.
Т.е. и итоге список должен стать таким:
--Банан--------0
--Гольф--------1
--Арбуз--------2
--Ворота-------3

Сейчас сортировка по алфавиту происходит так:

function TBaseList.SortFuncAlpha(Item1, Item2: Pointer): Integer;
var
  Data1, Data2: TBaseListItem;
  i: Integer;
begin
  Data1 := TBaseListItem(Item1);
  Data2 := TBaseListItem(Item2);
  if (Data1.Name < Data2.Name) then
    Result := -1;

  if (Data1.Name > Data2.Name) then
    Result := 1
  else
    Result := 0;
end;

Результат такой:
--Гольф--------1
--Арбуз--------2
--Банан--------0
--Ворота-------3

а потом такой:
--Гольф--------1
--Ворота-------3
--Банан--------0
--Арбуз--------2

Сейчас сортировка по признаку происходит так:

function TBaseList.SortFuncPriority(Item1, Item2: Pointer): Integer;
var
  Data1, Data2: TBaseListItem;
  i1, i2: Integer;
begin
  Data1 := TBaseListItem(Item1);
  Data2 := TBaseListItem(Item2);
  i1 := StrToInt(Data1.Priority);
  i2 := StrToInt(Data2.Priority);
  if (i1 < i2) then
    Result := -1;

  if (i1 > i2) then
    Result := 1
  else
    Result := 0;
end;

Результат такой:
--Гольф--------1
--Банан--------0
--Арбуз--------2
--Ворота-------3

а потом такой:
--Гольф--------1
--Арбуз--------2
--Банан--------0
--Ворота-------3


1 и 3 элементы не меняются
2 и 3 меняются только первый раз
2 и 4 меняются местами

ВСе это при обоих вариантах сортировки.

Как править?

Да в TList есть своя сортировка. Но мне нужна моя сортировка.

[BDA]

Может, дописать else в обеих сортировках?

if (Data1.Name < Data2.Name) then
  Result := -1
else
if (Data1.Name > Data2.Name) then
  Result := 1
else
  Result := 0;

[Shouldercannon]

TList сильно отличается от TListView? Могу дать пример сортировки для TListView.