[cyborgg4655]

Нужно симетировать клик мышкой по radiobutton1.

Пробую разные варианты на подобие:

Код:

procedure TForm1.Button54Click(Sender: TObject);
var   FormHandle: THandle;
begin
  FormHandle := Findwindow('TForm1', 'radiobutton1');
 if FormHandle <> 0 then
 begin
    SendMessage(FormHandle, WM_LBUTTONDOWN, 0, 0);
    SendMessage(FormHandle, WM_LBUTTONUP, 0, 0);
  end;

end;

Но не как немогу выдернуть хендл radiobutton'a... Подскажите пожалуйста в чем у меня ошибка?