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
;