返回值函数的地址保护！

Question

做一个动态链接时，定义了一个带返回值的函数，给这个返回值赋值时，老是出现地址保护的错误！如何解决？

Answer 1

function  AskForCardMsg( var rReceivekh: LongInt):integer;
var form1:tform1;
begin
try
funnum:=2;
    form1:=tform1.Create(application);    //取得Receivekh 
  if aRet=0  then
    rReceivekh := Receivekh  //赋值时出错
  else  
    rReceivekh:=0;
  Result := aRet ;
finally
    form1.Free;
end;
end;

Answer 2

取得的Receivekh是正常的，就是在赋值的时候出错！