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.