[ecfisa]

Hola 5TU4RT.

Otra alternativa es:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: integer;
begin
  if TryStrToInt(Edit1.Text, a) and TryStrToInt(Edit2.Text, b) then
    Edit3.Text:= IntToStr(a+b)
  else
    ShowMessage('Error: sin datos o no se ingresó un número entero')
end;

Saludos.