Может он и так изучает учебник и что-то не получается...
Код:
procedure TForm8.Button2Click(Sender: TObject);
var
s:integer
a:integer
b:integer
begin
// в EDIT1,2,3 - строки, значит записать строку в числовую переменную мы просто так не можем.
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.Text);
s:=a+b;
Edit3.Text := IntToStr(s);
end;