Add(MainForm,2953706,805,126)
{
 Width=462
 Height=204
 Position=1
 Point(Handle)
}
Add(Button,4478059,658,231)
{
 Left=75
 Top=55
 Caption="Punk"
 link(onClick,636987:doEvent1,[])
}
Add(For,16628594,805,259)
{
 End=30
 link(onEvent,9010062:doEvent1,[])
}
Add(Label,3354496,805,329)
{
 Left=140
 Top=80
 link(Text,16628594:Position,[])
}
Add(Label,3982908,1029,259)
{
 Left=140
 Top=60
}
Add(Hub,9010062,882,259)
{
 link(onEvent1,5674486:doPing,[])
 link(onEvent2,3354496:doText,[(908,272)(908,309)(787,309)(787,335)])
}
Add(Ping,5674486,952,259)
{
 Name="ya.ru"
 link(onFind,3982908:doText,[])
}
Add(Hub,636987,735,231)
{
 OutCount=5
 link(onEvent1,13673197:doQuit,[])
 link(onEvent5,16628594:doFor,[])
}
Add(WinTools,13673197,805,203)
{
 Point(doQuit)
 link(Handle,2953706:Handle,[])
}

Add(MainForm,2953706,70,63)
{
}
Add(InlineCode,9291942,147,119)
{
 WorkPoints=#7:doClose|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|49:     procedure doClose(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doClose;|5:begin|7:  Halt;|4:end;|0:|4:end.|
}
Add(Timer,1855399,70,119)
{
 Interval=5000
 link(onTimer,9291942:doClose,[])
}