Add(MainForm,2953706,574,217)
{
 Position=1
}
Add(InlineCode,8329617,441,224)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|8:onEvent2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug,mmsystem;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|2:  |9:   public|23:     onEvent:THI_Event;|24:     onEvent2:THI_Event;|55:     procedure doWork(var Data:TData; Index:word);     |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|22:var FCounter:cardinal;|5:begin|26: _hi_OnEvent(onEvent,'1');|25: FCounter := timeGetTime;|77: repeat {Applet.ProcessMessages} until integer(timeGetTime - FCounter)>=1000;|27: _hi_OnEvent(onEvent2,'2');|4:end;|0:|4:end.|
 link(onEvent,15554054:doWork2,[])
 link(onEvent2,15554054:doWork3,[(494,237)])
}
Add(HubEx,15554054,490,224)
{
 link(onEvent,11666535:doNext,[])
}
Add(Button,15616064,371,224)
{
 Left=250
 Top=185
 link(onClick,8329617:doWork,[])
}
Add(CounterEx,11666535,518,224)
{
 link(onNext,2953706:doCaption,[(562,230)(562,223)])
}