Kalkulator Delphi

var 
i1,i2:integer;
Begin
i1:=strtoin(inputbox('number','enter number',''));
i2:=strtoin(inputbox('number','enter number',''));
showmessage(inttostr(i1+i2));
End;
Picca Boo