Add(MainForm,2953706,21,105)
{
 Position=1
}
Add(Button,10504036,105,105)
{
 Left=70
 Top=35
 link(onClick,11970995:doWork,[])
}
Add(InlineCode,11970995,189,105)
{
 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|13:  S: string; |5:begin|36:  S := ReadString(_Data, Data1, '');|27:  _hi_OnEvent(onResult, S);|2:  |34:  // 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.|
 link(onResult,11561346:doMessage,[])
 link(Data1,12352069:Text,[])
}
Add(Edit,12352069,189,49)
{
 Left=70
 Top=5
}
Add(Message,11561346,245,105)
{
 Caption="Caption"
}