PopupMenu con SpeedButton

[__cadetill]

Empezado por roman

En otras palabras, quiero que el comportamiento sea como el de un ToolButton en una ToolBar pero no me apetece usar una ToolBar.

Pero mira que haces cosas raritas, eh!!!

A ver, lo máximo que he conseguido es esto, a lo mejor te ayuda

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if SpeedButton1.GroupIndex = 0 then
    SpeedButton1.GroupIndex := 1
  else
  begin
    PopupMenu1.Popup(Self.Left + SpeedButton1.Left,
                   Self.Top + SpeedButton1.Top + (SpeedButton1.Height*2));
    SpeedButton1.GroupIndex := 0;
  end;
end;

Problema: que si haces los clics rápidos, no funciona, han de ser a camara lenta