Sortowanie TListView

Witam!

Mam takie pytanie: Jak posortować dane w TListView od końca (czyli przeciwnie do AlphaSort)?

Za pomoc z góry dziękuję [browar]

Wystarczyło w google wpisać delphi listview alphasort i miałbyś rozwiązanie na stronie pod adresem:
http://forum.ks-ekspert.pl/lofiversion/index.php?t95575.html a cały "trick" tkwi w dodaniu tego -1:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  compare := CompareStr(Item1.Caption, Item2.Caption) * -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.AlphaSort;
end;

Dzięki pomogło :)