Списки TList. Инвертирование списка.

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

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

Как реализовать правильное инвертирование списка?
Есть объекты:
1
2
3

Инвертирование от большего к меньшему:
3
2
1

И наоборот:
1
2
3

Собственно, как это сделать в самом Tlist?
Способ: Создать 2 класс, и в него циклом заворачивать - не предлагать.

Знаю о методе Exchange. Но что-то не работает:

        ClearLV;
        case fDirection of

          idDown: // От большего к меньшему
            begin
              for i := 0 to Count - 1 do
              begin
                if (i < Count - 1) then
                  Exchange(i, i + 1);
                Update(Items[i]);
              end;
              fDirection := idUp;
            end;
          idUp: // От меньшего к большему
            begin
              for i := Count - 1 downto 0 do
              begin
                if (i > 0) then
                  Exchange(i, i - 1);
                Update(Items[i]);
              end;
              fDirection := idDown;
            end;
        end;

Не работает "// От меньшего к большему", допустим:
5
4
3
2
1
0

Переворачиваются почти:
1
2
3
4
5
0

В чем соль?

Вынес мозг себе и другим на протяжении этого дня.... ткните носом в бревно, которое я не вижу....

[Stilet]

Как реализовать правильное инвертирование списка?

Для чего? Может достаточно просто пройтись от count-1 downto 0?

Создать 2 класс, и в него циклом заворачивать - не предлагать.

Почему? Чем не катит?

[Аватар]

for i:=0 to (Count div 2)-1 do Exchange(i,Count-1-i);

[Utkin]

Пересчитывайте индекс да и все.