Problema con Try Except

[*Caro*]

Hola Espartaco, te pongo un ejemplo, con BDE y ADO.

Código Delphi [-]
  //BDE
  Database1.StartTransaction;//inicias la transacción
  try
    //Inserciones, modificaciones o eliminaciones sobre la base de datos
    Database1.Commit;//aceptas las operaciones de la base de datos
  except
   Database1.Rollback;//deshace las operaciones realizadas sobre la BD
   showmessage('Se ha producido un error');
   raise;
  end;//try

 //ADO  
 ADOConnection1.BeginTrans;
 try
   //Inserciones, modificaciones o eliminaciones sobre la base de datos 
   ADOConnection1.CommitTrans;
 except
   ADOConnection1.RollbackTrans;
   showmessage('Se ha producido un error'); 
   raise;
 end;//try

Saluditos