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

Add(RadioButton,3145347,343,455)
{
 Left=10
 Top=80
 Width=100
 Caption="Копирование"
 link(onSelect,9548863:doWork2,[(391,461)(391,426)])
}
Add(RadioButton,14269212,343,413)
{
 Left=120
 Top=80
 Width=100
 Caption="Перемещение"
 link(onSelect,9548863:doWork1,[])
}
Add(RadioButton,10075341,343,497)
{
 Left=240
 Top=80
 Width=90
 Caption="Удаление"
 link(onSelect,9548863:doWork3,[(405,503)(405,433)])
}
Add(ChanelToIndex,9548863,434,413)
{
 Count=3
 link(onIndex,1963271:doValue,[])
}
Add(Memory,1963271,483,413)
{
}
Add(IndexToChanel,1190367,483,553)
{
 Count=3
 Point(Index)
 link(Index,1963271:Value,[])
}

Add(RadioButton,3145347,343,455)
{
 Left=10
 Top=80
 Width=100
 Caption="Копирование"
 link(onSelect,5287504:doWork2,[])
}
Add(RadioButton,14269212,336,413)
{
 Left=120
 Top=80
 Width=100
 Caption="Перемещение"
 link(onSelect,1762974:doWork2,[])
}
Add(RadioButton,10075341,350,497)
{
 Left=240
 Top=80
 Width=90
 Caption="Удаление"
 link(onSelect,5287504:doWork3,[(403,503)])
}
Add(IndexToChanel,1190367,336,595)
{
 Count=7
 Point(Index)
 link(onEvent2,4247684:doWork,[(384,608)(384,594)])
 link(Index,11300990:Number,[])
 link(onEvent3,6700949:doWork,[])
 link(onEvent5,16136046:doWork,[(384,629)(384,636)])
}
Add(BitsToInt,11300990,336,546)
{
 link(Bit1,14269212:Selected,[])
 link(Bit2,3145347:Selected,[])
 link(Bit3,10075341:Selected,[])
}
Add(HubEx,1762974,399,406)
{
 Angle=3
 link(onEvent,11300990:doNumber,[(403,402)(324,402)(324,552)])
}
Add(HubEx,5287504,399,448)
{
 Angle=3
 link(onEvent,1762974:doWork3,[])
}
Add(Check,4247684,399,588)
{
 Caption="1"
}
Add(Check,6700949,399,609)
{
 Caption="2"
}
Add(Check,16136046,399,630)
{
 Caption="4"
}