Add(InlineCode,8329617,553,294)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|8:onEvent2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|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;|5:begin|26: _hi_OnEvent(onEvent,'1');|27: _hi_OnEvent(onEvent2,'2');|5: end;|4:end.|
}