[mRoman]

jajaja....tienes razon !!!.....bueno, "Al mejor cazador se le va la liebre"....
entonces quedaria asi:

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;         (Este no va aqui)
  end;      
  Action:=caFree;
end;