Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,63,112)
{
 link(onCreate,10066042:##open,[])
}
Add(TCP_ServerEx,10066042,154,126)
{
 ServerPort=666
 link(onRead,5635924:doAdd,[])
}
BEGIN_SDK
  Add(EditMultiEx,16266134,21,21)
  {
   WorkCount=#6:##open|
   EventCount=#6:onRead|
   Width=496
  }
  Add(TCP_Connection,8302430,105,84)
  {
   link(onRead,1610750:doCompare,[])
   link(onConnect,13369273:doData,[])
   link(onDisconnect,11333222:doData,[])
  }
  Add(If_else,1610750,350,84)
  {
   Op2=String(hello)
   link(onTrue,5247619:doEvent1,[])
  }
  Add(Hub,5247619,413,84)
  {
   link(onEvent1,634202:doWork3,[(460,90)])
   link(onEvent2,3313104:doData,[])
  }
  Add(DoData,3313104,448,91)
  {
   Data=String(hi i server)
   link(onEventData,8302430:doSend,[(497,97)(497,142)(93,142)(93,97)])
  }
  Add(HubEx,634202,456,21)
  {
   link(onEvent,16266134:onRead,[])
  }
  Add(DoData,13369273,175,91)
  {
   Data=String(client connected)
   link(onEventData,11270117:doWork2,[])
  }
  Add(HubEx,11270117,287,91)
  {
   Angle=3
   link(onEvent,634202:doWork2,[(291,27)])
  }
  Add(DoData,11333222,217,98)
  {
   Data=String(client disconnected)
   link(onEventData,11270117:doWork3,[(291,104)])
  }
END_SDK
Add(ListBox,5635924,245,126)
{
 Left=5
 Top=5
 Width=375
 Height=255
}