[Winner]

procedure Tform1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssright in shift then
listbox1.itemindex:=listbox1.ItemAtPos(Point(x,y), true);
end;

То, что мне было нужно. Тему можно закрывать. Спасибо.