[MAXIUM]

¿Alguna razón por la que el segundo COMMIT no se aplica o no funciona hasta que le doy cerrar a la aplicación?

Componentes FireDAC sobre Delphi 7. Gracias

Código Delphi [-]
       
      // Borra el estado financiero.
          DataModule1.ADQuery1.SQL.Clear;
          DataModule1.ADQuery1.SQL.Text:= 'Delete From FINANZAS Where ALUMNO_RUT = :RUT';
          DataModule1.ADQuery1.ParamByName('RUT').AsString:= RutParcial;

          DataModule1.ADTransaction1.StartTransaction;
          Try
             DataModule1.ADQuery1.ExecSQL;
             DataModule1.ADTransaction1.Commit;
          Except
             DataModule1.ADTransaction1.Rollback;
             Raise;
          End;

       // Borra el alumno del registro
          DataModule1.ADQuery1.SQL.Clear;
          DataModule1.ADQuery1.SQL.Text:= 'Delete From ALUMNOS Where ALUMNO_RUT = :RUT';
          DataModule1.ADQuery1.ParamByName('RUT').AsString:= RutParcial;

          DataModule1.ADTransaction1.StartTransaction;
          Try
             DataModule1.ADQuery1.ExecSQL;
             DataModule1.ADTransaction1.Commit;
          Except
             DataModule1.ADTransaction1.Rollback;
             Raise;
          End;