一个简单的问题！急！！在线等待！！！一回答立刻结分！！！！

[wujie0978_cn]

这里的程序是点击按钮时判断EDIT中输入的是否为数字
procedure Tform2.Button1Click(Sender: TObject);
begin
if trystrtoint(edit1.Text,0) then
begin
strweight:=edit1.Text;
Close;
end
else
showmessage('请重新输入数字！');
edit1.SetFocus;
end;
总是有“if trystrtoint(edit1.Text,0) then”这一行的错误提示：
[Error] Unit2.pas(33): Types of actual and formal var parameters must be identical
请问如何解决？？