三层下的一个奇怪问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
   username,password:variant;
   result:smallint;
begin
   result:=0 ;
   username:=edit1.Text;
   password:=edit2.Text;
   form1.SocketConnection1.AppServer.login1(username,password,result);   //这行下面的几句，调用result就有灾难性故障   label1.Caption:='共查到'+inttostr(result)+'条记录！';
   if result=1 then
      showmessage('正确！')
   else
      showmessage('错误！') ;
end;从调试器里看result的值是正常的，要吗是1要吗是0，但是一调用result就出错了，说是灾难性故障！怎么回事啊？大家帮帮忙。

Answer 1

这句我看不明白。
form1.SocketConnection1.AppServer.login1(username,password,result);

Answer 2

把result换个其他的名称试试看，result好像是关键字吧

Answer 3

form1.SocketConnection1.AppServer.login1(username,password,result);这句是什么意思？是系统自带的过程吗？

Answer 4

1。看看你的变量是in,out型的吗
2。看换成variant类型的可以不可以，对了好像加*才是输出变量

Answer 5

result这个变量，改个名字看看

Answer 6

已经加了*了，调试器里看到result的值是正确的。result应该可以用，其他几个函数用result没问题。