Add(MainForm,9599326,168,274)
{
 link(onCreate,8157233:doWork2,[(254,294)(254,329)])
}
Add(InlineCode,15629518,364,316)
{
 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:|76:Procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL';|0:|14:implementation|0:|24:procedure THiAsmClass.f;|5:begin|26: BlockInput(ReadBool(dt));|17: //_hi_OnEvent();|4:end;|0:|4:end.|
}
Add(Timer,12191870,245,316)
{
 Interval=15000
 AutoStop=1
 link(onTimer,8157233:doWork1,[])
}
Add(ChanelToIndex,8157233,308,316)
{
 link(onIndex,15629518:f,[])
}