y asi:
claro, la idea que haces sería:
procedure TForm1.Button1Click(Sender: TObject);
var
valorReal:Real;
begin
try
valorReal:=StrToFloat(Edit1.Text);
Edit2.Text:=extenso(valorReal);
except
MessageDlg('Ingrese un numero ',mtError,[mbOk], 0);
end;
end;
o más simple:
try
Edit2.Text:=extenso(StrToFloat(Edit1.Text));
except
MessageDlg('Ingrese un numero ',mtError,[mbOk], 0);
end;
|