var a,b,c:integer; begin a:=strtoint(edit1.text); b:=strtoint(edit2.text); c:=a+b; edit3.text:=inttostr(c); end; end; end.