И Вы называете ЭТО процедурой? Убейте меня, я больше немогу
Советую взяться за учебник по дельфи и изучать с первых строк...
Хотя если очень надо -
Код:
procedure TForm8.Button2Click(Sender: TObject);
var
a,b,s:integer;
begin
a:=StrtoInt(edit1.text);
b:=StrtoInt(edit2.text);
s:=StrtoInt(edit3.text); - ???
s:=a+b;;
end;
P.S И откуда TForm8 ? Чувствуется у Вас грандиозный проект...