ADOConnection1.BeginTrans; //开始新事务 try //操作数据... ADOConnection1.CommitTrans; //提交事务 except ADOConnection1.RollbackTrans; //异常时回滚事务 end;