急，急 用CGI 和ISAP 调用COM，数据为XML，但客户端就是有问题？

Question

用CGI 和ISAP 调用COM，数据为XML，但客户端就是有问题。
单独有CGI 和客户端没问题，单独有COM 和客户端也没问题。但如果客户端通过用CGI调用COM，客户端总是报错。
客户端：
procedure TForm1.Button1Click(Sender: TObject);
var
aintf:Idemo1;
vdata:variant;
begin
aintf:=self.HTTPRIO1 as Idemo1;
try
aintf.qrydata('select * from HRINFO',vdata);
self.ClientDataSet1.XMLData:=vdata;
finally
aintf:=nil;
end;
CGI 服务端
function Tdemo1.qrydata(const strsql:string;var vdata:variant):variant;
var
vdo:variant;
sdata:olevariant;
begin
CoInitialize(nil);
try
  vdo:=createoleobject('Project1.SPECICADOServer');
  vdo.qrydate(strsql,sdata);
  result:=sdata;
finally
CoUninitialize;
end;end;