Listview右键有关问题

Listview右键问题
我Listview上放有两个PopupMenu,分别为PopupMenu1,PopupMenu2.我想实现在点Listview右键的时候   ,如果Listview.selected=true的时候,就弹出PopupMenu1,没有选中Listview的Item时就弹出PopupMenu2,   在哪里写事件代码呢,我看了看Listview没有右键点击事件....或许还有其它办法...谢谢

[解决办法]
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if mbRight = Button then
begin
if Assigned(ListView1.Selected) then
PopupMenu1.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y)
else
PopupMenu2.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y)
end;
end;
[解决办法]
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if mbRight = Button then
begin
if self.ListBox1.ItemIndex <> -1 then
PopupMenu1.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y)
else
PopupMenu2.Popup(Mouse.CursorPos.x,Mouse.CursorPos.y)
end;

end;