SpeedButton und OnDblclick funktioniert nicht!

[Framige]

Hi Leute,
irgendwie bin ich zu blöd heute.
Ich habe einen SpeedButton in meiner Anwendung, mit dem ich über OnClick ein Ereignis auslöse.
Soweit so gut.
Wenn ich hier aber über OnDblClick ein Ereignis auslösen will, klappt das nicht.
Ich habe schon alles mögliche versucht. Aber er reagiert einfach auf meinen Doppelclick nicht.
Source:

Procedure TForm2.SpeedButton1DblClick(Sender: TObject);
Begin
showmessage('Klappt.');
end;

Im Objektinspector habe ich SpeedButton1DblClick in OnDblClick eingetragen. Aber es tut sich einfach nichts. Bei OnClick klappt es.
Ich möchte den Button aber gerne mit 2 Funktionen ausstatten.

Was mache ich hier verkehrt???