Word16Rec

type Word16Rec = packed record

  case Integer of

    0: (

        ByteLo: Byte;

        ByteHi: Byte;

      );

    1: (

        Bytes: array [0..1] of Byte;

      );

end;