Add(MainForm,2953706,56,63)
{
}
Add(InlineCode,997580,126,119)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 VarPoints=#6:Result|
 DataPoints=#4:text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:     s:string;|9:   public|23:     onEvent:THI_Event;|20:     text:THI_Event;|5:     |50:     procedure doWork(var Data:TData; index:word);|50:     procedure Result(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|5:const|13:  s0 = '###';|0:|57:procedure THiAsmClass.doWork(var Data:TData; index:word);|3:var|12:  s2:string;|12:  s1:string;|5:begin|31:  s1 := ReadString(Data, Text);|25:  //s1 := toString(Data);|20:  s := s0 + s1 + s0;|0:|26:  _hi_OnEvent(onEvent, s);|4:end;|0:|57:procedure THiAsmClass.Result(var Data:TData; index:word);|5:begin|20:  dtString(Data, s);|4:end;|0:|4:end.|
 link(onEvent,2181136:doText,[])
 link(text,9591416:Text,[])
}
Add(Edit,9591416,126,63)
{
 Left=50
 Top=10
 Width=195
 Cursor=1
 Text="Привет!"
}
Add(Button,5196320,56,119)
{
 Left=125
 Top=40
 TabOrder=-1
 link(onClick,997580:doWork,[])
}
Add(Edit,2181136,196,119)
{
 Left=50
 Top=65
 Width=195
 Cursor=1
 Text=""
}