[guillotmarc]

Hola.

Ponerlo :

Edit1.Text := FloatToStr(Variable);

Sacarlo :

try
  Variable := StrToFloat(Edit1.Text);
except
  ShowMessage('No se ha introducido un valor numérico válido');
end;

Para evitar futuros malentendidos, por favor léete la guía de estilo del Foro. (en nuestras firmas tienes un enlace).

Saludos.