Add(Button,5706304,266,161)
{
 Left=75
 Top=15
 Caption="Test!"
 link(onClick,16037272:doWork,[])
}
Add(InlineCode,16037272,322,161)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onResult|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|28: Windows, KOL, Share, Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|0:|10:    public|29:      onResult: THI_Event;   |54:      procedure doWork(var _Data: TData; Index: Word);|6:  end;|0:|14:implementation|0:|5://var|21://  Counter: Integer;|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|5:const|23:  Counter: Integer = 0;|5:begin|15:  Inc(Counter);|33:  _hi_OnEvent(onResult, Counter);|4:end;|0:|0:|0:|0:|4:end.|
 link(onResult,8683788:doEvent,[])
}
Add(Debug,8683788,392,161)
{
}
Add(MainForm,4815798,266,112)
{
 Width=298
 Position=1
}