Add(MainForm,2953706,21,105) { link(onCreate,8157233:doWork1,[(107,125)(107,153)]) } Add(InlineCode,15629518,217,147) { WorkPoints=#1:f| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|47:uses kol,Share,Debug,windows,shellapi,messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: //:THI_Event;|0:|42: procedure f(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.f;|5:begin|35: EnableHardwareInput(ReadBool(dt));|17: //_hi_OnEvent();|4:end;|0:|4:end.| } Add(Timer,12191870,98,154) { Interval=15000 AutoStop=1 link(onTimer,8157233:doWork2,[]) } Add(Edit,8684033,266,98) { Left=35 Top=25 Width=275 } Add(ChanelToIndex,8157233,161,147) { link(onIndex,15629518:f,[]) }