请问谁用过delphi写mqax应用程序(100分)

如题
我碰到如下问题

在mqax200_tlb中有如下定义
function TMQSession.AccessQueueManager(const name: WideString): IDispatch;
begin
Result := DefaultInterface.AccessQueueManager(name);
end;
procedure TMQQueueManager.Begin_;
begin
DefaultInterface.Begin_;
end;
***************************8

uses
mqax200_tlb;(mqax的类库）
var
mqsess:TMQSession;
QMgr:variant;

procedure aaa;
begin
mqsess:=TMQSession.create(nil);
QMgr:=mqsess.AccessQueueManager('mqname');
...
QMgr.begin_; //事务处理
...
运行到此程序出错：begin_ method not supported by automation

end;

于是我又将此句改为QMgr.begin,运行通过，但是却没有事务发生

说明：如果不加上事务机制即不要qmgr.begin,qmgr.backout,qmgr.commit,整个程序没有任何错误


请高手解答、讨论：email:jw@visionsky.com.cn