高手请进:使用线程在客户端调用Webservice,报错!!~!~! (100分)

关键代码:
procedure TCallWebService.Execute;
begin
FreeOnTerminate := true;
frmLogin.Call2;
//Synchronize(frmLogin.Call2);如果使用这句,可以运行,但显然不符合要求,
调用过程中,窗体都不能拖动
end;
//******************
procedure TfrmLogin.Call2;
v_return :=P_Interface.CheckUser(V_ID,V_Pass);--运行到这里报错:
...eOLESsyError...'标记没有引用存储'
{ for i := 0 to 100000000do
begin
Application.ProcessMessages;
end;
}--如果把调用Webservice的语句换成循环,运行良好!为什么?