[ecfisa]

Hola.

Otro modo puede ser:

Código Delphi [-]
procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 with TSpeedButton(Sender) do
   if Button = mbRight then
     PopupMenu1.Popup(ClientOrigin.X + Width, ClientOrigin.Y + Height);
end;

Saludos.