[mamcx]

Usa un try..except

Código Delphi [-]
AdoConnection.BeginTrans
try
  AdoQry1.append;
  AdoQry1Nombre.value:='jose';
  AdoQry1.post;

  AdoConnection.CommitTrans;
except
  AdoConnection.RollbackTrans;
  raise;
end;