[angvelem]

Скорее всего ТС нужно ListBox.ItemAtPos.

Код:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: integer);
var
  Index: integer;
begin
  Index := ListBox1.ItemAtPos(Point(X, Y), True);
...
end;