RFC调用问题

我想问下我再用RFC调用时候出现问题:

procedure TForm1.Button1Click(Sender: TObject);

var

Connection,Funct : variant;

begin

Connection:=SAPLogoncontrol1.NewConnection;

Connection.user:='likb';

Connection.System:='999';

Connection.Client:='999';

Connection.ApplicationServer:='192.168.0.10';

Connection.SystemNumber:='01';

Connection.Password:='likb147';

Connection.Language:='ZH';

SAPLogonControl1.Enabled:= false;

if Connection.LogOn(0,true) then

begin

SAPFunctions1.Connection:=Connection;

SAPFunctions1.RemoveAll;

Funct:=SAPFunctions1.Add('ZR_ZBOGS');

Funct.exports('P_JS').value:=3;

if not Funct.call then

application.MessageBox('no','no',0)

else

application.MessageBox('yes','yex',0);

end;

end;

当我在用delphi6编译的时候,出现的问题是 从Connection.user:='likb'; 这句开始出现问题.

问题的描述是这样的:

EAccessViolation with message ' access violation at address 0045C4C3 in module ' project1.exe'

read of address 00000000'. process stopped.

而我用delphi7编译的时候,一直执行的是 if not Funct.call then

application.MessageBox('no','no',0)

而不是下面的else 句,我想知道是为什么?

能给个详细的说明吗?