... ADOConnection.BeginTrans; try ADOQuery1.ExecSQL; ADOQuery2.ExecSQL; ADOConnection.CommitTrans; except ADOConnection.RollbackTrans; end; ...