这段代码如何设事务(高手请看看)

try
adoconnection.BeginTrans; 
frist;
with not ADOQuery1.eof do begin
prochang;//更新库存的数量的过程再嵌套另了一过程
 with ADOcommand do begin
  command.text:='update ....';
  execute;
 end; 
next;
end;
with ADOQuery2
edit;
fieldbyname('zht'):='Y'; //主表做已处理的标记
post;
end;
 adoconnection.CommitTrans;
except
  adoconnection.RollbackTrans;
这样的事务会造成sql的阻塞吗??