Add(MainForm,2953706,21,105) { link(onCreate,16691808:Test,[]) } Add(InlineCode,16691808,84,119) { WorkPoints=#4:Test| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|43: procedure Test(var dt:TData; idx:WORD);|5: end;|0:|14:implementation|0:|27:procedure THiAsmClass.Test;|5:begin|13:AllocConsole;|4:end;|0:|4:end.| }