TFloatType = (
  ftSingle,
  ftDouble,
  ftExtended,
  ftComp,
  ftCurr
);

enum TFloatType {
  ftSingle,
  ftDouble,
  ftExtended,
  ftComp,
  ftCurr
};