Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,21,105)
{
}
Add(Button,7650806,98,63)
{
 Left=15
 Top=10
 Width=65
 Caption="1. Listen"
 link(onClick,10066042:##open,[])
}
Add(TCP_ServerEx,10066042,175,63)
{
 ServerPort=777
}
BEGIN_SDK
  Add(EditMultiEx,16266134,21,21)
  {
   WorkCount=#6:##open|
   Width=496
  }
  Add(TCP_Connection,8302430,105,84)
  {
  }
END_SDK
Add(Button,10792253,98,301)
{
 Left=150
 Top=230
 Caption="Clear"
 link(onClick,1009783:doClear,[(341,307)(341,216)])
}
Add(Button,15682993,97,203)
{
 Left=10
 Top=55
 Width=70
 Height=45
 Caption="2. Connect from Thread"
 link(onClick,5947108:doStart,[])
}
Add(TCP_Client,11019881,210,203)
{
 link(onRead,5608842:doEvent1,[])
 link(onConnect,2667680:doData,[])
 link(IP,6776199:Value,[(216,195)(181,195)])
 link(Port,12435083:Value,[])
}
Add(Button,4899397,98,252)
{
 Left=10
 Top=105
 Width=70
 Caption="3. Connect"
 link(onClick,827374:doWork3,[(186,258)])
}
Add(Thread,5947108,140,203)
{
 Delay=100
 FastStop=0
 link(onExec,827374:doWork2,[])
}
Add(DoData,2667680,252,210)
{
 Data=String(hello)
 link(onEventData,11019881:doSend,[(294,216)(294,249)(201,249)(201,223)])
}
Add(ListBox,1009783,357,203)
{
 Left=85
 Top=50
 Width=290
 Height=150
}
Add(Hub,5608842,308,203)
{
 link(onEvent1,1009783:doAdd,[])
 link(onEvent2,11019881:doClose,[(332,216)(332,258)(194,258)(194,216)])
}
Add(HubEx,827374,182,203)
{
 link(onEvent,11019881:doOpen,[])
}
Add(Memory,12435083,224,154)
{
 Default=Integer(666)
}
Add(Memory,6776199,175,154)
{
 Default=String(127.0.0.1)
}