Hola, te comento que uso delphi 2009 no es el mismo procedimiento que para delphi 7. Pero te puede orientar.
Código Delphi
[-]
var
TD: TDBXTransaction;
begin
try
TD := DM.Conexion.BeginTransaction(TDBXIsolations.ReadCommitted);
DM.Conexion.CommitFreeAndNil(TD);
except
On e:Exception do
begin
DM.Conexion.RollbackFreeAndNil(TD);
raise;
end;
end;
Espero que te sirva, saludos.