Transação com Firebird

[Celamar 0]

Como controlar uma transação TIBTransaction com o Firebird em tempo de execução?

Veja o que fiz, mas não funcionou:

 

       //INICIO transação        try          if not GobjConexaoBanco.Transacao.InTransaction then             GobjConexaoBanco.Transacao.StartTransaction;          if not (GobjSituacao.fnInserirRegistro) and (GobjSituacao.MensagemErro <> '') then             begin               Erro(GobjSituacao.MensagemErro + ' ' + GobjSituacao.InstrucaoSQL, false);               raise Exception.Create(GobjSituacao.MensagemErro);             end;          GobjConexaoBanco.Transacao.CommitRetaining;        except           on e: exception do           begin             GobjConexaoBanco.Transacao.Rollback;             fnMostrarMensagemPadrao(Self.Handle, 'Ocorreu um erro ao inserir a situação ' +                                     Trim(AnsiUppercase(sgSituacao.Cells[1, intLinha])) + '!', ESTILO_MSG_ERRO);             exit;           end;        end;

Valeu!

[PabloPB 0]

Celamar,explique-me o que seria esse comando:"GobjSituacao.fnInserirRegistro".Depois, se eu puder, eu te ajudo.Pablo Anízio.