des_cblock_union = packed record
  case integer of
    0: (cblock: des_cblock;);
    1: (deslong: array [1..2] of DES_LONG););
  end;