Add(InlineCode,4886426,329,126)
{
 WorkPoints=#1:a|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug,shellapi;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    //:THI_Event;|0:|42:    procedure a(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.a;|5:begin|65: ShellAbout(ReadHandle,'Form', 'Программа на Hiasm',Applet.icon);|17: //_hi_OnEvent();|4:end;|0:|4:end.|
}
Add(Button,816674,273,126)
{
 Left=90
 Top=75
 link(onClick,4886426:a,[])
}