TIBTransaction이 Error가 발생했는데 Table에
저장되어 버립니다.

Try ~ Except을 사용하여 "저장에 실패하였습니다".
Message까지 나왔는데 테이블을 확인해 보면
저장이 되어버립니다.


아시는 분 해결방법 좀 알려주세요

   ..........

    Query 구문
    Query.ExecSql;
     
    try
      dm_a.BeesCon.Commit;
    except On E : EDatabaseError do
      begin
        Application.MessageBox('자료저장에 실패하였습니다.', '데이타베이스 정보 !!!',
        MB_OK or MB_ICONWARNING);
        dm_a.BeesCon.Rollback;
      end;
    end;