Add(MainForm,14458099,336,140) { MouseCapture=0 Point(doSetFocus) Point(Handle) Point(onClose) link(onClose,14592537:doDeferredEvent,[]) } Add(Button,11889299,224,161) { Left=110 Top=5 link(onClick,14223066:doTimer,[]) } Add(Timer,14223066,280,161) { Enable=1 AutoStop=1 link(onTimer,14458099:doClose,[]) } Add(DeferredEvent,14592537,385,161) { link(onDeferredEvent,13036471:doEventOn,[]) } Add(InlineCode,13036471,434,161) { WorkPoints=#9:doEventOn| EventPoints=#9:onEventOn| 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|26: onEventOn: THI_Event;|53: procedure doEventOn(var Data:TData; Index:word);|5: end;|0:|14:implementation|0:|31:procedure THiAsmUnit.doEventOn;|5:begin|10: EventOn;|25: _hi_onEvent(onEventOn);|4:end;|4:end.| link(onEventOn,1926107:doData,[(478,167)(478,97)(262,97)(262,118)]) } Add(DoData,1926107,280,112) { Data=String(ResetEvent) link(onEventData,14458099:doCaption,[(324,118)(324,146)]) }