Minha Função nao retorna Valores no Delphi 2005

Ola galera!

Essa é a minha primeira vez aqui...

bom usei um componente tQuery para Executar a Função de busca de preço.
dentro do componente coloquei o sequinte comando

Select dbo.fc_busca_preco (:codbarras) as valor

Quando executo isso
fc_busca_preco .close;
fc_busca_preco .ParamByName('codbarras').AsInteger := qy_itemcodBarras.asInteger;
fc_busca_preco .ExecSQL;

if fc_busca_precovalor .AsInteger > 0 then
campo := fc_busca_precovalor .AsInteger

So que o if esta retornando 0.
Se eu executar esse select direto no banco ele me traz o valor que eu busco