Hola
Bienvenido al club, por favor lee la
guia de estilo.
La verdad no se a que te refieres en cuanto a las excepciones, pero para que te des una idea:
Código Delphi
[-]
begin
DataModule1.AdoConnection1.BeginTrans;
try
end;
DataModule1.AdoConnection1.CommitTrans;
except
on E:Exception do DataModule1.AdoConnection1.RollbackTrans;
Tal vez te de alguna idea.
Saludos