Add(InlineCode,6185762,231,231)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 VarPoints=#2:vr|
 DataPoints=#3:dat|
 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:    onEvent:THI_Event;|4:    |18:    dat:THI_Event;|4:    |50:    procedure doWork(var _Data:TData; Index:word);|46:    procedure vr(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|14:var i:integer;|11:    b:real;|5:begin|29:  for i := 0 to 2000 do begin|11:    b := i;|19:    b := b / 2 - 1;|19:    b := b / 2 - 2;|19:    b := b / 2 - 1;|17:    if b = 0 then|30:       _hi_onEvent(onEvent,i);|6:  end;|4:end;|0:|25:procedure THiAsmClass.vr;|5:begin|0:|4:end;|0:|4:end.|
 link(onEvent,16548712:doMessage,[])
}
Add(Button,5768208,182,231)
{
 Left=180
 Top=230
 link(onClick,6185762:doWork,[])
}
Add(Message,16548712,280,231)
{
}