how to code a calculator in delphi code example

Example: delphi calculator

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