Word4096

type Word4096 = packed record

  case Integer of

    0: (

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

      );

    1: (

        Word16s: array [0..255] of Word16;

      );

    2: (

        Word32s: array [0..127] of Word32;

      );

    3: (

        Word64s: array [0..63] of Word64Rec;

      );

    4: (

        Word128s: array [0..31] of Word128;

      );

    5: (

        Word256s: array [0..15] of Word256;

      );

    6: (

        Word512s: array [0..7] of Word512;

      );

    7: (

        Word1024s: array [0..3] of Word1024;

      );

    8: (

        Word2048s: array [0..1] of Word2048;

      );

end;