TWordOverlay

type TWordOverlay = bitpacked record

  case Integer of

    0: (

        AsBit: array [TWordBitIndex] of Boolean;

      );

    1: (

        AsNibble: array [TWordNibbleIndex] of nibble;

      );

    2: (

        AsByte: array [TWordByteIndex] of Byte;

      );

    3: (

        AsWord: Word;

      );

    4: (

        AsByteOverlay: array [TWordByteIndex] of TByteOverlay;

      );

end;