
Лучше, все же, вот так делать:
Add(MainForm,10153734,224,189)
{
Left=20
Top=105
link(onCreate,4609391:doEvent1,[])
}
Add(UDP,6550112,483,147)
{
LocalPort=8888
RemotePort=9999
LocalIP="127.0.0.1"
RemoteIP="127.0.0.1"
Point(doSendTo)
link(onReceive,7760830:doAdd,[])
}
Add(Edit,12844596,371,168)
{
Left=5
Top=10
Width=125
Text="doInfo"
link(onEnter,6550112:doSendTo,[])
}
Add(ListBox,7760830,539,147)
{
Left=5
Top=35
Width=125
Height=155
}
Add(UDP,11456131,371,252)
{
LocalPort=9999
RemotePort=8888
LocalIP="127.0.0.1"
RemoteIP="127.0.0.1"
AutoConnect=0
link(onReceive,12663661:doTimer,[])
}
Add(DiskInfo,12888210,553,252)
{
Point(OccupiedSpace)
Point(FreeSpace)
Point(FullSize)
link(onInfo,7764291:doData,[])
}
Add(DoData,7764291,630,252)
{
link(onEventData,11456131:doSend,[(680,258)(680,333)(351,333)(351,265)])
link(Data,12888210:DeviceID,[(636,240)(598,240)(598,296)(559,296)])
}
Add(Hub,4609391,294,203)
{
link(onEvent1,6550112:doOpen,[(340,209)(340,153)])
link(onEvent2,11456131:doOpen,[(351,216)(351,258)])
}
Add(Timer,12663661,483,252)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,12888210:doInfo,[])
}