union_dword

type union_dword = record

  case Integer of

    0: (

        aword: record

          high: cuint16;

          low: cuint16;

        end;

      );

    1: (

        adword: cuint32;

      );

end;