listbox над каким элементов находится курсор

[Winner]

При нажатии левой кнопки мыши на listbox выделяется элемент, над которым находится курсор. Я хочу сделать то же и самое для нажатия правой кнопки мыши. Подскажите, пожалуйста, как это сделать.

[WaReZ_MEN]

Можно перехватить сообщения мши и послать прывай клик

[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;

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