[dr. F.I.N.]

Код:

procedure TForm8.Button2Click(Sender: TObject);
var
s:integer;
a:integer;
b:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.Text);
s:=a+b;
Edit3.Text := IntToStr(s);
end;