Add(Button,1322042,427,140)
{
 Left=190
 Top=125
 link(onClick,14973397:doStart,[])
}
Add(InlineCode,11970995,553,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onResult|
 VarPoints=#4:Var1|4:Var2|
 DataPoints=#5:Data1|5:Data2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|29:  Windows, KOL, Share, Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|0:|10:    public|30:      Data1, Data2: THI_Event;|29:      onResult: THI_Event;   |54:      procedure doWork(var _Data: TData; Index: Word);|52:      procedure Var1(var _Data: TData; Index: Word);|52:      procedure Var2(var _Data: TData; Index: Word);|6:  end;|0:|14:implementation|0:|0:|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|3:var|21:  FDLStream: PStream;|15:begin          |31:  FDLStream := NewMemoryStream;|17:  FDLStream.Free;|0:|8:        |33:  // ReadString(_Data, Data1, '')|33:  // ReadInteger(_Data, Data2, 0)|42:  // _hi_CreateEvent(_Data, @onResult, 0);|33:  //_hi_OnEvent(onResult, 'abc');|4:end;|0:|0:|59:procedure THiAsmClass.Var1(var _Data: TData; Index: Word); |5:begin|22:  dtInteger(_Data, 0);|4:end;|0:|59:procedure THiAsmClass.Var2(var _Data: TData; Index: Word); |5:begin|22:  dtString(_Data, '');|4:end;|0:|4:end.|
}
Add(Thread,14973397,490,140)
{
 FastStop=0
 link(onExec,11970995:doWork,[])
}