Add(InlineCode,9895652,203,77) { WorkPoints=#6:doPlus| EventPoints=#6:onPlus| DataPoints=#6:MyData| 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|22: onPlus : THI_Event;|22: MyData : THI_Event;|49: Procedure doPlus(var _Data:TData; index:word);|5: end;|0:|14:implementation|0:|29:Procedure THiAsmClass.doPlus;|5:begin|47: _hi_onEvent(onPlus,toIntegerEvent(MyData)+1);|4:end;|0:|4:end.| }