Hola Espartaco, te pongo un ejemplo, con BDE y ADO.
Código Delphi
[-]
Database1.StartTransaction; try
Database1.Commit; except
Database1.Rollback; showmessage('Se ha producido un error');
raise;
end;
ADOConnection1.BeginTrans;
try
ADOConnection1.CommitTrans;
except
ADOConnection1.RollbackTrans;
showmessage('Se ha producido un error');
raise;
end;
Saluditos