TCommEventMask
TCommEventMask = set of TCommEvents;
割り込みの使用