was mir noch aufgefallen ist, das du nicht explizit die dataset bei der transaction angibts:
Delphi-Quellcode:
begin
CASE MessageDlg('speichern ?',mtInformation,
[mbYes, mbNo], 0) OF
mrNo : recmoddata.TransAction.Rollback;
mrYes : recmoddata.TransAction.Commit;
end;