warum geht der code nicht(listview sort)

[keineahnung1]

hi, ich hab ne listview und hab 2 spalten, aber egal auf welchen header ic klick sortiert der immer nach der column 0. Ich verwende genau den code der in der hilfe steht

Delphi-Quellcode:

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;

woran leigt des?!?! jemand ne idee