Controlar Commit y Rollback

[kalimero]

Código Delphi [-]
try
    if not(conexion.InTransaction) then conexion.BeginTrans;
    ingresarguia;
    ingresarcorrelativo;
    conexion.commit; //todo ha ido bien y confirmamos
except
    //Capturamos la excepcion y hacemos lo que queramos
    //Deshacemos la transaccion
    conexion.Rollback;
end;