Я и так написал, но опять ощибку даёт
Код:
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;
Админ: Пользуемся тегами для оформления кода!