Add(Memo,11635285,644,126)
{
 Top=40
 Width=468
 Height=335
 Align=5
 ScrollBars=3
}
Add(MainForm,6778608,140,112)
{
 Width=484
 Height=414
 Point(onClose)
 link(onCreate,3624125:doEnumValues,[])
 link(onClose,6107025:In,[])
}
Add(COMEX,1512296,574,119)
{
 BaudRate=19
 link(onSyncWrite,9553713:In,[(613,125)(613,90)])
 link(onRead,11635285:doAdd,[])
 link(Port,257308:Value,[(580,110)(468,110)(468,159)(419,159)])
}
Add(Registry,3624125,238,112)
{
 HKey=2
 Key="HARDWARE\DEVICEMAP\SERIALCOMM"
 Point(doEnumValues)
 Point(onEnumValue)
 link(onRead,6160917:doAdd,[])
 link(onEnumValue,3624125:doRead,[(277,125)(277,104)(228,104)(228,118)])
}
Add(Delete,4826920,357,119)
{
 Count=3
 StartPosRTL=1
 link(onDelete,257308:doValue,[])
}
Add(Memory,257308,413,119)
{
 link(onData,14243743:doEvent1,[])
}
Add(FormatStr,14370976,518,133)
{
 Mask="ATI\r\nAT+CLAC\r\n\r\n"
 link(onFString,983214:doWork2,[])
}
Add(LineBreak,976307,35,112)
{
 link(Out,6328198:doString,[])
 Primary=[9553713,595,-28]
}
Add(FormatStr,6328198,84,112)
{
 Mask="Подключено к порту - %1"
 link(onFString,6778608:doCaption,[])
 link(Str1,6160917:String,[(90,103)(223,103)(223,152)(314,152)])
}
Add(HubEx,983214,560,133)
{
 link(onEvent,1512296:doWrite,[])
}
Add(Hub,14243743,476,119)
{
 link(onEvent1,1512296:doOpen,[])
 link(onEvent2,14370976:doString,[(508,132)(508,139)])
}
Add(StrCat,663839,518,182)
{
 Str2="\r\n"
 link(onStrCat,983214:doWork3,[(564,188)])
}
Add(DoData,12077577,455,217)
{
 link(onEventData,15715040:doWork3,[(501,223)])
 link(Data,3960594:Text,[])
}
Add(HubEx,15715040,497,182)
{
 link(onEvent,663839:doStrCat,[])
}
Add(Label,1497642,574,35)
{
 Width=468
 Height=40
 Align=2
 Caption=""
 AutosizeAtStart=1
}
Add(Button,7314165,405,217)
{
 Left=300
 Top=10
 Caption="Send"
 link(onClick,12077577:doData,[])
}
Add(Edit,3960594,457,175)
{
 Left=140
 Top=10
 Width=150
 Text="AT+CLAC"
 ClearAfterEnter=1
 link(onEnter,15715040:doWork2,[])
}
Add(ComboBox,6160917,301,112)
{
 Left=10
 Top=10
 Width=100
 Height=21
 Text="Выбрать порт"
 DataType=1
 link(onClick,4826920:doDelete,[])
}
Add(LineBreak,16146466,511,84)
{
 link(Out,1512296:doClose,[(557,90)(557,132)])
 Primary=[6107025,-329,49]
}