Add(MainForm,2953706,49,112)
{
}
Add(InlineCode,14427965,259,112)
{
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|0:|5: end;|0:|14:implementation|0:|26:procedure TestIC; stdcall;|5:begin|19:  _debug('testIC');|4:end;|0:|7:exports|9:  TestIC;|0:|4:end.|
}
Add(Button,12775953,133,112)
{
 Left=20
 Top=35
 link(onClick,3237490:doTest,[])
}
Add(InlineCode,3237490,189,112)
{
 WorkPoints=#6:doTest|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|4:type|0:|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|48:     procedure doTest(var dt: TData; idx: word);|5:     |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTest;|3:var|29:  TestIC: procedure; stdcall;|13:  p: pointer;|5:begin|43:  p := GetProcAddress(HInstance, 'TestIC');|19:  if p <> nil then |7:  begin|16:    TestIC := p;|11:    TestIC;|6:  end;|4:end;|0:|4:end.|
}