请教分布式事务控制源代码范例(100分)

只需要一个简单的例子，在一个事务中控制两个数据库连接的处理
环境：WIN2000， ORACLE8.1.7.4（已打补丁），DELPHI7
紧急求助，谢谢。
已经控制了组件对象的事务属性：均为需要事务，现在是针对同一个连接，但是两次调用，这个都搞不定的话就别说两个连接了。单个处理没有任何问题，但出现某条记录KEY重复时并没有象想象中的那样自动回滚，而是一个提交，另一个不提交。DM中的数据库没有自动提交属性。两个对象的源码如下：
控制对象：
procedure TCtrlTwoDBObj.insertDept(const code, name, database: WideString;
out poErrStr: WideString);
var
firstObj : IinsertToFeng;
begin
try
OleCheck(ObjectContext.CreateInstance(CLASS_insertToFeng, IID_IinsertToFeng, firstObj));
firstObj.insertDept('0001', 'feng', '', poErrStr);
if poErrStr <> '' then
begin
SetAbort;
exit;
end;
firstObj.insertDept('0002', 'feng', '', poErrStr);
if poErrStr <> '' then
begin
SetAbort;
exit;
end;
SetComplete;
except
SetAbort;
end;
end;

功能对象：
procedure TinsertToFeng.insertDept(const code, name, database1: WideString;
out poErrStr: WideString);
var
sqlStr : String;
begin
sqlStr := Format('insert into dept values( ''%s'', ''%s'' , ''aaa'') ', [code, name]);
dmFirst := TdmFirst.Create(nil);
try
try
dmFirst.Query1.SQL.Clear;
dmFirst.Query1.SQL.Add(sqlStr);
dmFirst.Query1.ExecSQL;
dmFirst.Query1.Close;
except
on e : Exceptiondo
begin
poErrStr := e.Message + ' : ' + sqlStr;
SetAbort;
end;
end;

SetComplete;
finally
freeAndNil(dmFirst);
end;
end;

好惨，没人回答

procedure TinsertToFeng.insertDept(const code, name, database1: WideString;
out poErrStr: WideString);
var
sqlStr : String;
begin
sqlStr := Format('insert into dept values( ''%s'', ''%s'' , ''aaa'') ', [code, name]);
dmFirst := TdmFirst.Create(nil);
try
try
dmFirst.Query1.SQL.Clear;
dmFirst.Query1.SQL.Add(sqlStr);
if not dmFirst.Database.IntransAction then
dmFirst.Database.StartTransaction ;
dmFirst.Query1.ExecSQL;
dmFirst.Database.Commit ;
dmFirst.Query1.Close;
except
on e : Exceptiondo
begin
dmFirst.Database.rollBack ;
poErrStr := e.Message + ' : ' + sqlStr;
SetAbort;
end;
end;

SetComplete;
finally
freeAndNil(dmFirst);
end;
end;

这样写不对吧，如果这样的话MTS的事务做什么用的呢？
小弟也正为这事发愁，真不知如何是好。