var
X, Y: integer
XX, YY: short;


XX := ((((X and $FF) shl 8) or ((X shr 8) and $FF)));
YY := ((((Y and $FF) shl 8) or ((Y shr 8) and $FF)));