Вывести PopupMenu строго под кнопкой

[Shouldercannon]

Как такое сделать?
Получилось только по курсору

procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
  x, y: Integer;
begin
  x := GetSystemMetrics(Sm_CXscreen);
  y := GetSystemMetrics(Sm_CYscreen);
  GetCursorPos(p);

  PopupMenu1.Popup(p.x, p.y);
end;

[Аватар]

procedure TForm1.Button2Click(Sender: TObject);
var xx: TPoint;
begin
  xx:=Button2.ClientToScreen(Point(0,Button2.Height));
  PopupMenu1.Popup(xx.X,XX.Y);
end;