Мой вариант:
Код:
begin
try
Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
except
Edit3.Clear;
end;
end;
Поскольку у Edit-ов есть состояние
null, не могу его не задействовать. Это как раз тот случай, когда ясность интерфейса заставляет идти на жертвы в виде возбуждения и обработки исключений.
А NumbersOnly может и не подойти, если вдруг потребуются отрицательные или шестнадцатиричные значения, которые StrToInt тоже поддерживает.