告急求救！用MTS对象通过TDcomconnection/TSockconnection连接MTS数据模块的问题！(100分)

procedure Tzjzlcx_Client_MTS.zjzlcx(var yybdm, zjzh, zjxm, khlb, sfzh,
dhhm, email, yzbm, txdz: OleVariant);
var
zjxms,khlbs, sfzhs, dhhms, emails, yzbms, txdzs:OleVariant;
begin
with DataModule1.DCOMConnection1 do
begin
Connected:=true;
AppServer.zjzlcx(yybdm,zjzh,zjxms,khlbs,sfzhs,dhhms,emails,yzbms,txdzs);
end;
zjxm:=zjxms;
khlb:=khlbs;
sfzh:=sfzhs;
dhhm:=dhhms;
email:=emails;
yzbm:=yzbms;
txdz:=txdzs;
end;
在基础客户程序调用以上MTS的过程时无法通过，如果不使用
with DataModule1.DCOMConnection1 do
begin
Connected:=true;
AppServer.zjzlcx(yybdm,zjzh,zjxms,khlbs,sfzhs,dhhms,emails,yzbms,txdzs);
end;
这一段的时候程序可以通过，也就是说无法在MTS对象中连接数据模块并执行远程的过程，
大家帮忙啊！谢谢了。
（我的目的是想写一个接口函数，通过输入参数查询数据库数据，然后返回几个参数，哪位
大哥有相关的程序例子请指教一下，不一定要用MTS，用COM或其他也行，只要能实现这个
功能）

help

请帮忙啊！我真的很急啊！！！！！！！连看都没人看吗？？？？