doublerecty

type doublerecty = packed record

  case Integer of

    0: (

        by0: Byte;

        by1: Byte;

        by2: Byte;

        by3: Byte;

        by4: Byte;

        by5: Byte;

        by6: Byte;

        by7: Byte;

      );

    1: (

        wo0: Word;

        wo1: Word;

        wo2: Word;

        wo3: Word;

      );

    2: (

        lwo0: LongWord;

        lwo1: LongWord;

      );

    3: (

        qwo0: QWord;

      );

end;