怎样获取按钮的坐标

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Apoint:TPoint;
begin
  APoint:=TSpeedButton(Sender).ClientToScreen(Point(0,TSpeedButton(Sender).ClientHeight));
  PopupMenu1.Popup(Apoint.X,Apoint.Y);
end;