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