5 uses ServerLoop
,SysUtils
;
10 procedure Event1(ev
:Word);
20 writeln('TestWatch: Input handle ',h
);
25 procedure tObj
.Event1(ev
:Word);
27 writeln('TestWatch: Event1 ',IntToHex(ev
,4));
32 procedure tObj
.Event2
;
34 writeln('TestWatch: Event2 ');