Add(MainForm,12903465,385,133)
{
 Width=916
 Height=119
 Point(onClose)
}
Add(Button,2195436,385,231)
{
 Left=20
 Top=20
 Caption="123.20"
 Data=String(999999999.99)
 link(onClick,1447056:doWork,[])
}
Add(Edit,12989484,483,133)
{
 Left=90
 Top=20
 Width=115
 Text=""
}
Add(InlineCode,1447056,434,231)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 DataPoints=#3:Sum|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug, myFunc;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|25:   onRes, Sum :THI_Event;|49:   procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|0:|14:var Ss:string;|5:BEGIN|56:  _hi_onEvent(onRes,NumToWordBux(ReadReal(_Data, Sum)));|4:END;|4:end.|
 link(onRes,16448703:doText,[])
 link(Sum,7666022:GetData,[])
}
Add(Edit,16448703,483,231)
{
 Left=10
 Top=45
 Width=875
}
Add(EventFromData,7666022,434,182)
{
 link(onEvent,9301630:doReplace,[])
}
Add(Replace,9301630,483,182)
{
 SubStr=","
 DestStr="."
 link(onReplace,7666022:doData,[(527,188)(527,176)(422,176)(422,188)])
 link(Str,12989484:Text,[])
}