res := (ToIntegerEvent(X) and 65535) or (ToIntegerEvent(Y) shl 16);