[firebase-br] Manipular erro no delphi retornado pela execução de uma procedure no FB

[Ubirajara Nogueira]

Boa tarde a todos!

Utilizado D6 com FB 1.5.2 e executo uma procedure no banco que está
retornando um erro gerado por uma exception criada por mim.
Como faço para tratar essa mensagem no delphi?
Vejam o código existente:

    try
      DMdados.SpCodigo.StoredProcName  := 'FOL_CALCULA_FOLHA_01_P';
      DMdados.SpCodigo.Params[0].Value := EstacaoAtual;
      Dmdados.SpCodigo.Params[1].Value := EmpresaAtualC;
      Dmdados.SpCodigo.Params[2].Value := Calc_Competencia;
      Dmdados.SpCodigo.Params[3].Value := Calc_Tipo_Folha;
      Dmdados.SpCodigo.Params[4].Value := id_colaborador;
      if not DMdados.SpCodigo.Prepared then
             DMdados.SpCodigo.Prepare;
      DMdados.SpCodigo.ExecProc;
      F_Principal.transacao.CommitRetaining;
    except
      showmessage('Erro na geração da folha.');
    end;

Gostaria de mostrar a descrição da exception retornada pela procedure.

Desde já agradeço a atenção de todos.

[]'s

Ubirajara Nogueira
Analista de Sistemas
Petrolina - PE