关于计算器的求助

我做的一个很简单的过程calculate作为计算费用的，
在edit3.text中输入数字后，和edit6.text的相乘，
结果保留在editlsvalue.text中。


在implementation里写了这么一个过程，程序如下：
procedure Caculate(x,y,z:integer);
begin
z:=x*y;
end;


在button1里面调用该过程，程序如下：
procedure TForm2.BitBtn10Click(Sender: TObject);
var number1,number2,result:integer;
begin
number1:=strtoint(edit3.Text);
number2:=strtoint(edit6.Text);
caculate(number1,number2,result);
editlsvalue.Text:=inttostr(result);
end;

为什么计算出来的结果都是0呢？
大家帮忙下，谢谢