[Casimiro Noteví]

¿Modificado?, puede que te sirva InTransaction, que te devuelve true o false, ejemplo:

if DMprincipal.TRtrans.InTransaction then
    HazEsto()
else
    HazEstoOtro();