Fórum Ajuda com Interbase #205013

é o seguinte, tenho um formulário de cadastro onde tem um botão novo que executa o código abaixo, ou seja habilita os campos, no intebase tenho um generator e uma stored procedure para gerar o autoincremento, porém quando eu mando executar a stored procedure para pegar o seu valor e inserir em um EDIT, o mesmo não acontece, tenho o mesmo código em outro form e funcona.

{Inicia uma transação}
IBTrans.Active := False;
IBTrans.StartTransaction;
{Verifica a Stored Procedure}
if not ( IBStoredProc.Prepared ) then
begin
IBStoredProc.Prepare;
end;

{Executa a Stored Procedure}
IBStoredProc.ExecProc;
{Atribui um valor ao campo COD do DBEdit}
DBEditCod.Text := IntToStr(IBStoredProc.ParamByName(´COD´).AsInteger);
IBTrans.CommitRetaining;

btnNovo.Enabled := False;
btnCadastra.Enabled := True;
IBTabelaAgenda.Active := True;
DBEditNome.SetFocus;