Add(RadioButtonEx,10074719,238,84)
{
 Left=155
 Top=55
 Selected=0
}
Add(RadioButtonEx,3628848,238,140)
{
 Left=155
 Top=95
}
Add(Button,7728408,140,84)
{
 Left=130
 Top=140
 Width=145
 Caption="Сделать активным пункт 1"
 link(onClick,10074719:doSelect,[])
}

procedure ThiRadioButtonEx._work_doSelect;
begin
   //Control.Checked := ReadBool(_Data);
   SendMessage(Control.Handle,BM_CLICK,0,0);
end;

procedure ThiRadioButtonEx._work_doSelect;
begin
   Control.Checked := ReadBool(_Data);
   //SendMessage(Control.Handle,BM_CLICK,0,0);
end;