Как узнать, по какой колонке был клик в TListView?

Code:

uses ComCtrls;

type

TListViewX = class(TListView)

public

   function GetItemAtX(X, Y: integer; var Col: integer): TListItem;

end;

implementation

function TListViewX.GetItemAtX(X, Y: integer;

   var Col: integer): TListItem;

var

i, n, RelativeX, ColStartX: Integer;

ListItem: TlistItem;

begin

Result := GetItemAt(X, Y);

if Result <> nil then begin

   Col := 0; // Первая колонка

end else if (ViewStyle = vsReport)

     and (TopItem <> nil) then begin

   // Первая, попробуем найти строку

   ListItem := GetItemAt(TopItem.Position.X, Y);

   if ListItem <> nil then begin

     // Теперь попробуем найти колонку

     RelativeX := X-ListItem.Position.X-BorderWidth;

     ColStartX := Columns[0].Width;

     n := Columns.Count - 1;

     for i := 1 to n do begin

       if RelativeX < ColStartX then break;

       if RelativeX <= ColStartX +

           StringWidth(ListItem.SubItems[i-1]) then

       begin

         Result := ListItem;

         Col := i;

         break;

       end;//if

       Inc(ColStartX, Columns[i].Width);

     end;//for

   end;//if

end;//if

end;