Sortowanie w TListView

Jak posortować dane w TListView wg np. drugiej lub trzeciej kolumny?

pod OnCompare podepnij cos w tym guscie

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
begin
Compare:=AnsiCompareStr(Item1.SubItems[0],Item2.SubItems[0]);
end;

(porownuje stringi w drugiej kolumnie)

i wykonaj CustomSort lub AlphaSort albo ustaw SortType na stData (lub stBoth)