Sortowanie w ListView

Jak zrobić żeby po kliknieciu na nagłówek w ListView np. Data - sortowało zawartość według tej kolumny?

Do zdazeni OnComunClick wstawiasz:

ColumnToSort := Column.Index;
ListView1.AlphaSort;

A do onCompare taki:

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;