Вызов PopupMenu левой кнопкной

[artemavd]

Как вызвать PopuMenu нажатием по кнопке левой кнопкой мыши и задать координаты расположенния вызванного контекстного меню? Не могу найти процедуру, которая показывает PopupMenu.

------
Добавлено
Методом научного тыка , удалось сделать следующее:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y: integer;
begin
 x:=55;
 y:=50;
 Form1.PopupMenu1.Popup(x,y);
end;

Так, меню появляется рядом с кнопком. Координаты подобраны эмпирически. А как "привязать" PopupMenu к кнопке?

Все, понял как. Можно просто вычислять размеры и положение кнопки и расчитывать координаты PopupMenu

[Kotofff]

Все, понял как. Можно просто вычислять размеры и положение кнопки и расчитывать координаты PopupMenu

В Win7 получается примерно так :
001.jpg

  PopupMenu1.Popup(Form1.Left + Form1.BorderWidth + Button1.Left + 10,
                   Form1.Top + GetSystemMetrics(SM_CYCAPTION) + Form1.BorderWidth + Button1.Top + Button1.Height + 6);

числа "10" и "6" наверное из-за "слишком широких" бордюров 7-ки ...