Блокирование вычисления суммы при вводе ошибочного символа

[Ivanacats]

подскажите пожалуйста как дополнить программу анализом кода преобразования в функции Val, таким образом, чтобы при вводе ошибочного символа вычисление суммы блокировалось.

var
  Form1: TForm1;
 b:real;
 s:string;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  a:Real;
  code:Integer;
begin
Val (edt1.text,a,code);
Val (edt2.Text,b,code);
b:=a+b;
Str(b:10:4,s);
lbl3.Caption:=s;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
b:=0;
str(b:-10:4,s);
lbl3.Caption:=s;
end;

end.

[ViktorR]

Val (edt1.text,a,code);

Тут code - код ошибки. 0 - если ошибки преобразования нет, иначе номер позиции в строке, где обнаружена первая ошибка.
Т.о. анализируя code можно управлять ходом вычисления.

if code = 0 then
 {вычисляем}
else
 {просим повторить ввод и завершаем процедуру}

Так думаю ...

[Stilet]

Так думаю ...

Правильно. Если Code не будет равен нулю, то число в нем показывает в какой позиции строки проблема.
А вообще сейчас в моде TryStrToXXX функции.
Val хоть и серьезная функция но устареть умудрилась.