[jachguate]

Se me ocurre que usando las funciones FloatToStr y Copy se puede conseguir fácilmente.

Código Delphi [-]
var
  s: string;
begin
  s := Copy(FloatToStr(Valor), 1, 10);
end;

Hasta luego.