[mRoman]

Les agradezco las respuestas de ecfisa, elmug y de casimiro asi como de movorack y comentarles que ya lo solucione gracias a sus comentarios, los cuales aplique y me queda con la sugerencia de casimiro. En realidad es mas sencillo de lo que propone ElMug, lo que realmente necesitaba era solamente "avisarle" al usuario que se estaba saliendo sin grabar los movimientos realizados.

Total....asi quedo:

Código Delphi [-]
     if dsUnidadOperativa.Transaction.InTransaction then
     begin
        if Application.MessageBox('Desea GUARDAR los movimientos realizados?','Pregunta',mb_YesNo+mb_IconQuestion)=idYes then
        begin
            DataModule2.trsCasas.Commit;
        end Else
        begin
            DataModule2.trsCasas.Rollback;
            Action:=caFree;
        end;
     end;

Gracias a todos....Saludos !