Add(Button,10700397,266,231)
{
 Left=5
 Top=40
 link(onClick,6185762:doGet,[])
}
Add(Edit,1008630,315,182)
{
 Left=5
 Top=15
 Width=260
 Text="1024"
}
Add(Message,5861241,364,231)
{
}
Add(InlineCode,6185762,315,231)
{
 WorkPoints=#5:doGet|
 EventPoints=#5:onGet|
 DataPoints=#6:bbytes|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:    onGet:THI_Event;|4:    |21:    bbytes:THI_Event;|4:    |49:    procedure doGet(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|28:procedure THiAsmClass.doGet;|5:begin|61:   _hi_OnEvent(onGet,Num2Bytes(ReadInteger(_Data,bbytes,0)));|4:end;|0:|4:end.|
 link(onGet,5861241:doMessage,[])
 link(bbytes,1008630:Text,[])
}

Add(InlineCode,15475482,350,252)
{
 WorkPoints=#5:doGet|
 EventPoints=#5:onGet|
 VarPoints=#6:Rezult|4:Calc|
 DataPoints=#6:bbytes|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:     r:String;|9:   public|20:    onGet:THI_Event;|4:    |21:    bbytes:THI_Event;|4:    |49:    procedure doGet(var _Data:TData; Index:word);|50:    procedure Rezult(var _Data:TData; Index:word);|48:    procedure Calc(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|28:procedure THiAsmClass.doGet;|6:begin |46:   r:= Num2Bytes(ReadInteger(_Data,bbytes,0));|37:   _hi_CreateEvent(_data, @onGet, r);|4:end;|0:|27:procedure THiAsmClass.Calc;|5:begin|59:   dtString(_Data, Num2Bytes(ReadInteger(_Data,bbytes,0)));|4:end;|0:|29:procedure THiAsmClass.Rezult;|5:begin|22:   dtString(_Data, r);|4:end;|0:|0:|4:end.|
}