union_word

type union_word = record

  case Integer of

    0: (

        abyte: record

          high: cuint8;

          low: cuint8;

        end;

      );

    1: (

        aword: cuint16;

      );

end;