Colocar menu popup ao lado do button

var
vPonto : TPoint;
begin
   vPonto := Button1.ClientToScreen(Point(0, Button1.Height));
    PopUpMenu1.Popup(vPonto.X, vPonto.Y);