ExtendedRec

type ExtendedRec = packed record

  case Boolean of

    True: (

        Mantissa: array [0..1] of LongWord;

        Exponent: Word;

      );

    False: (

        Value: Extended;

      );

end;