Вызов PopupMenu в ListView

[tsar_]

Здравствуйте.

На форме моей проги имеется ListView в режиме таблицы (vsReport) с двумя колонками для отображения имен файлов и соответственно пути к ним.

С этим самым ListView требуется связать PopupMenu, с помощью которого можно будет открывать выделенный пользователем файл или папку, в которой он лежит (по записанному пути к файлу).

Необходимо вызывать PopupMenu при щелчке правой кнопкой мыши на ListView при условии, что имеется элемент, выделенный и имеющий фокус, и щелчок этой самой правой кнопкой мыши произошел в области ListView, занятой элементами.
Проще говоря, если пользователь щелкнул ПКМ на свободной области ListView (которая может образоваться при неполном заполнении ListView, т.е. ниже последнего элемента, либо справа), то меню не должно появляться.

Пока использовал ListView.OnMouseUp:

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button=mbRight) and assigned(ListView1.ItemFocused) then
if ListView1.ItemFocused.Selected then
popupmenu1.Popup(X,Y); //координаты пока не принципиальны
end;

Меню не появляется в свободной области ListView (это хорошо), но на заполненной элементами облати появляется только после двойного ПКМ (это нехорошо).
Других способов пока не нашел...

З.Ы. Блин, перепутал раздел, думал в "Общие вопросы Delphi" пишу ...
Да простят меня модераторы...