Delphi - Ordenar un listview

hola

como ordeno un listview con estilo reporte? es decir lo que deseo es cuando hago clic en una columna, quiero que los items se ordenen por esa columna, como? en vb es facil, en delphi ni idea

sort los elementos de un listview
OnColumnClick, o bien OnClolumnRightClick, OnChanging, etc....

ListView1.SortType := stText; // data,,etc

Esto es un ejemplo simplificado:
procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;

procedure TForm1.ListView1Compare(Sender: TObject; Item1,
Item2: TListItem; Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else
begin
ix := ColumnToSort - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;

El ListView debe estar con ViewStyle en vsReport, los eventos son OnColumnClick y OnCompare.
ColumnToSort es una valiable global de tipo Integer.