TListView und Spalte

[Schwedenbitter]

Ich habe es jetzt so probiert

Delphi-Quellcode:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
Var
   I            : Integer;
   aLeft         : Integer;
begin
   aLeft:=0;
   For I:=0 To Pred(ListView1.Columns.Count) Do
   Begin
      If Y In [aLeft..(aLeft + ListView1.Columns.Items[I].Width)] Then
         Break
      Else
         aLeft:=aLeft + ListView1.Columns.Items[I].Width;
   End;
   MessageBox(0, PAnsiChar(IntToStr(I)), 'SubItem', mb_OK);
end;

Ich bekomme aber immer eine '0' ausgegeben.

Wieso klappt das nicht?