本地数据库事务处理

对本地prodox处理库编写了以下代码，请问那里有问题使事务处理无效，每执行
一句db1.toorderdb.Execute(sql_order);都会向数据库写入数据，我在FOR循环
结束后先ROLLBACK也不法撤消事务，请问应该如何改，谢谢，代码基本如下
toorderdb是TDATABASE类 
db1.toorderdb.TransIsolation:=tiDirtyRead;
DB1.toorderdb.StartTransaction;
for循环开始
 预处理 sql_order
 try           db1.toorderdb.Execute(sql_order);
 except
            showmessage('错误');
  end;
for循环结束
 try
       db1.toorderdb.Commit；
 except
       db1.toorderdb.Rollback;
       db1.toorderdb.Close;
end;