Чуваки, помогите!
Сделал сортировку в что называется по классике:
======================================================
procedure TfrmUserMain.lviABContactsColumnClick(Sender: TObject;
Column: TListColumn);
begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;

procedure TfrmUserMain.lviABContactsCompare(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;
======================================================
А у меня не отрабатывается проца:
TfrmUserMain.lviABContactsCompare

Почему не знаю.