Var xxx:Double; Try xxx:=StrToFloat(edit1.text) Except ShowMessage('Tipo de datos incorrecto.'); Edti1.SetFocus; End;