Add(Button,4891942,168,364)
{
 Left=130
 Top=100
 link(onClick,6185762:doWork,[])
}
Add(InlineCode,6185762,217,364)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|33:uses kol,Share,Debug,ShareMyType;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:    onEvent:THI_Event;|4:    |50:    procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|15:var dt:PMyType;|14:    _dt:TData;|5:begin|18:  ClearMyType(dt);|19:  dtMyType(_dt,dt);|38:  _hi_CreateEvent(_Data,@onEvent,_dt);|4:end;|0:|4:end.|
 link(onEvent,4633890:doValue,[])
}
Add(Memory,4633890,266,364)
{
}