Код программы.
procedure TForm1.Button1Click(Sender: TObject);
var
a,b, c:integer;
begin
val (edit1.Text,a);
val (edit2.text,b);
c:=a+b;
Edit3.Text:=Inttostr (C);
end;
var
a,b, c:integer;
begin
val (edit1.Text,a);
val (edit2.text,b);
c:=a+b;
Edit3.Text:=Inttostr (C);
end;
Интерфейс.