Как программно щелкнуть по компоненту SpeedButton

Как программно щелкнуть по компоненту SpeedButton

Я пытался использовать SendMessage но у Speedbuttons нет "handle"... ;-(

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

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage('Delphi World is the BEST');
end;

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

планшетный пк apple ipad 2 wifi 3g 16 черный купить . Vertex Standard VX-417. Vertex standard vx 417. . скидки . Современные кухонные плиты: холодильник для пива. . возврат водительских прав .