Add(MainForm,2953706,119,126)
{
 link(onCreate,720251:doRead,[])
}
Add(ChanelToIndex,11705371,504,140)
{
 Count=4
 link(onIndex,720251:doWrite,[(564,146)(564,73)(212,73)(212,153)])
}
Add(IndexToChanel,328290,371,140)
{
 Count=4
 Point(Index)
 Point(Data)
 link(onEvent1,8303004:doSelect,[(419,146)(419,125)])
 link(onEvent2,12026675:doSelect,[(419,153)(419,160)])
 link(onEvent3,12742712:doSelect,[(419,160)(419,195)])
 link(onEvent4,2198198:doSelect,[(419,167)(419,230)])
 link(Index,7151283:Value,[(377,128)(325,128)(325,184)(272,184)])
 link(Data,11625228:Value,[])
}
Add(Ini,720251,224,140)
{
 FileName="cfg"
 Section="cfg"
 Key="pos"
 link(onResult,7151283:doValue,[])
}
Add(RadioButton,8303004,434,119)
{
 Left=25
 Top=15
 Width=20
 Caption=""
 link(onSelect,11705371:doWork1,[(485,125)(485,146)])
}
Add(RadioButton,12026675,434,154)
{
 Left=45
 Top=15
 Width=20
 Caption=""
 link(onSelect,11705371:doWork2,[(485,160)(485,153)])
}
Add(RadioButton,12742712,434,189)
{
 Left=25
 Top=35
 Width=20
 Caption=""
 link(onSelect,11705371:doWork3,[(485,195)(485,160)])
}
Add(RadioButton,2198198,434,224)
{
 Left=45
 Top=35
 Width=20
 Caption=""
 link(onSelect,11705371:doWork4,[(485,230)(485,167)])
}
Add(Memory,11625228,378,98)
{
 Default=Integer(1)
}
Add(Memory,7151283,266,140)
{
 link(onData,8684092:doTimer,[])
}
Add(Timer,8684092,315,140)
{
 Interval=1
 Enable=1
 AutoStop=1
 link(onTimer,328290:doEvent,[])
}

procedure THIRadioButton._work_doSelect;
begin
   if ReadBool(_Data) then 
      SendMessage(Control.Handle,BM_CLICK,0,0)
   else
      Control.Checked := false;
  _hi_OnEvent(_event_onSelect);
end;