Add(MainForm,13878031,336,210)
{
 Width=247
 Height=236
 Position=1
 link(onCreate,2741100:doBite,[])
}
Add(InlineCode,2741100,385,224)
{
 WorkPoints=#6:doBite|
 EventPoints=#6:onBite|10:onBiteStop|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|5:const|37: arr:array[0..2] of Byte = (27,98,2);|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|20:   onBite:THI_Event;|24:   onBiteStop:THI_Event;|49:   procedure doBite(var _Data:TData; Index:word);|5: end;|1: |14:implementation|0:|0:|58:procedure THiAsmClass.doBite(var _Data:TData; Index:word);|14:var i:integer;|5:begin|29: for i := 0 to Length(arr) do|7:  begin|28:   dtInteger(_Data, arr[i]);|30:   _hi_onEvent_(onBite,_Data);|5: end;|25: _hi_OnEvent(onBiteStop);|4:end;|0:|4:end.|
 link(onBite,15875823:doAdd,[])
}
Add(ListBox,15875823,441,224)
{
 Left=10
 Top=10
 Width=215
 Height=180
}