◇◆◆◆◇高分求教DCOM多线程问题◇◆◆◆◇

Question

server端服务器用multi,apartment模式，写了一个方法：function Tappserv.CallApp(var Input: OleVariant): OleVariant;
begin
result:=DateTimeToStr(Now);
end;client端用多线程来调用CallApp：
procedure TThreadQuery.ConnectDataSource;
var
input,outs:variant;
begin
input:=VarArrayCreate([0,5],VarVariant);
outs:=VarArrayCreate([0,5],VarVariant);
input[0]:='put';
outs[0]:=form1.DCOMConnection1.AppServer.callapp(input);//每当执行到这里就出错“应用程序调用一个已为另一线程整理的接口”。
end;procedure TThreadQuery.Execute;
begin
try
CoInitializeEx(nil,COINIT_APARTMENTTHREADED);
 try
     ConnectDataSource;
  except
    ShowMessage('Error');  
  end;
finally
 CoUnInitialize;
end;
end;怎样才能解决？？？？？？？