Problema con FloatToStr

[Kubelo]

Hola, en primer lugar agradecer la molestia de leer mi problema y ayudarme.

Vamos a ver, tengo una función tal que así:

Código Delphi [-]
procedure TNuevoEdit.SetFloat(ValorFloat: Double);
begin
 if Tipo = TipoFloat then Text := FloatToStr(ValorFloat);
end;

Bien el problema que me he encontrado es que al pasar un valor tipo (ValorFloat = 1e-05) me pasa a partir de 5 decimales, ya que sino el valor llega como 0,0001. Pues bien en los casos que coge exponenciales al final el text se me pasa como un valor negativo.

Por ejemplo:

(0,00001) -> 1e-05 -> Text = -15
(0,00002) -> 2e-05 -> Text = -25

Es muy curioso pero me esta resultando un quebradero de cabeza. Así que espero ideas para que al final me quede como tiene que quedar, es decir:

1e-05 -> Text = 0,00001
2e-05 -> Text = 0,00002

Gracias de nuevo