Fórum Problemas com Commit e RollBack #403951

Olá!

Estou com um problema que esta me enchendo o saco.

estou executando três procedimentos, da seguinte forma:

1 if dm.ibTR.InTransaction then
2    dm.ibTR.Commit;
3 dm.ibTR.StartTransaction;

4 try
5   UpDateContrato;
6   UpDateCONXIMO;
7   UpDateImovel;
8 except
9   on e:EIBError do begin
10      dm.ibTR.Rollback;
11      MessageDlg('Menssagem: '+inttostr(E.SQLCode)+' '+E.Message+#13,mtError,[mbOK],0);
12      CancelarClick(Self);
13      Exit;
14   end;
15 end;

16 dm.ibTR.Commit;
17 CancelarClick(Self);

a idéia é que quando se algum desses procedimentos der um erro não seja gravado nada no banco, ou seja, dá um Rollback, linha 10. E se der tudo certo, Commit, linha 16. Blz.

segue abaixo o codigo do ultimo procedimento, linha 7:
   procedure UpDateImovel;
   begin
      try
a        ibq_rcimovel.Open;
b        ibq_rcimovel.First;
c        while not ibq_rcimovel.Eof do begin
d           ibq_rscancel.SQL.Clear;
e           ibq_rscancel.SQL.Add('update IMOVEL set imo_foientregue = ''N'' ');
f            ibq_rscancel.SQL.Add('where imo_codigo = :imovel');
g           ibq_rscancel.ParamByName('imovel').AsInteger := ibq_rcimovel.FieldByName('imo_codigo').AsInteger;
h           ibq_rscancel.ExecSQL;

i           ibq_rcimovel.Next;
j        end;
k     except
L        raise;
m    end;
n   end;

Bem, o motivo da linha a é por causa do que acontece entre as linhas 1 e 3.
Quando eu provoco uma falha dentro da query, por exemplo: no lugar de imo_foientregue eu colocar imo_foient,
apresentará um erro a ser tratado na exceção externa, linha L. Acionando dessa forma o Rollback.

O problema é que ele esta gravando as duas procedures anteriores (UpDateContrato e UpDateCONXIMO), quando, na verdade era para dar um Rollback em tudo, não gravar nada.

Pois, minha intenção é essa, dando algum erro, não gravar nada.
Por valor alguém pode me ajudar? O que estou fazendo de errado?

Agradeço qualquer ajuda.