[[egostar]]

También podrías usar la funcion TryStrToFloat.

Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
var
  Valor: Extended;
begin
  if TryStrtoFloat(Edit1.Text,Valor) = true then begin
     ShowMessage(FloattoStr(Valor));
  end
  else begin
         ShowMessage('ERROR DE CONVERSION');
  end;
end;

Salud OS.