Программный 'Click' по 'speed button'

Как программно "щелкнуть" по компоненту speed button?

Я пытался использовать SendMessage но у Speedbuttons нет "handle". В примере используется метод Perform класса TControl для отправки сообщения.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage('clicked');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SpeedButton1.Perform(WM_LBUTTONDOWN, 0, 0);
SpeedButton1.Perform(WM_LBUTTONUP, 0, 0);
end;