type TFloatRec = packed record
  Exponent:  Smallint;
  Negative:  Boolean;
  Digits:  array[0..20] of Char;
end;
TFloatValue = (fvExtendetl,  fvCurrency);
procedure FloatToDecimal(var Result: TFloatRec; const Value; ValueType: TFloatValue;   Precision,   Decimals:  Integer);

Функция FloatToDecimal - это низкоуровневая процедура форматирования. Другие функции форматирования вызывают ее, однако в приложениях она применяется редко. FloatToDecimal записывает экспоненту и знак в запись Result и форматирует мантиссу в виде строки десятичных цифр. Precision - это минимальное количество значащих цифр, Decimals - количество цифр перед десятичной точкой. Значение Value должно иметь тип Currency или Extended, и необходимо указать соответствующий тип в ValueType (ftCurrency или ftFxtended). Если ValueType и тип Value не совпадают, результат может быть непредсказуемым.