[marcoszorrilla]

Bueno, voy a discrepar un poco de lo dicho, creo que la inquietud es saber como probar la función FloatToDecimal, la ayuda yo creo que deja mucho que desear en este caso.

Entonces si hubieran puesto un simple ejemplo sobraría esta pregunta, pero no existe ningún ejemplo, por lo que hacer que no de error esta función no es tarea trivial.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
    Res: TFloatRec;
    X: Extended;
 begin
    X:= -987.654321;
    FloatToDecimal( Res, X, fvExtended, 9, 1);
      { Res.Exponent:= 3; Res.Negative:= True; Res.Digits:= 9877 }
      ShowMessage(IntToStr(Res.exponent));
      ShowMessage(Res.Digits);
 end;

Con este ejemplo creo que se podrá entender sin ningún problema.

Un Saludo.