Add(MainForm,2953706,91,112)
{
 Width=230
 Height=97
 Position=1
 link(onCreate,3546147:doWork,[])
}
Add(InlineCode,3546147,147,126)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|19:   onRes:THI_Event;|49:   Procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:Procedure THiAsmClass.doWork;|5:begin|33: _hi_onEvent(onRes,GetSystemDir);|4:end;|0:|4:end.|
 link(onRes,6501198:doText,[])
}
Add(Label,6501198,210,126)
{
 Left=10
 Top=20
}