너무 밖에 있는거 아닌가요?  Query.ExecSQL; 이요..  :)

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

이렇게 한번 해 보시죠.  안되면 다시 질문 올려 주세요.

즐코.

iCox 님이 쓰신 글 :
:  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;
:      
: