[firebase-br] erro em sp

[samuel ferreira]

ola
 uso d7 e fb 1.5
 tenho esta sp :
 create or alter procedure sp_insert_prodPrecoAuxiliarAll (produto 
numeric(6), preco numeric(11,2), computador varchar(15))
as
declare cliente numeric(6);
begin
for select cliente from precocliente
where produto = :produto and
preco = :preco
into :cliente
do begin
insert into produtoprecoauxiliar
(cliente, computador)
values
(:Cliente, :computador);
end
end;
 no delphi, faco o seguinte:
  dados.sp_InsertProdutoPrecoAuxiliarAll.close;
dados.sp_InsertProdutoPrecoAuxiliarAll.params [0].asinteger := strtoint (
edtProduto.text);
dados.sp_InsertProdutoPrecoAuxiliarAll.params [1].asfloat := strtofloat (
edtPreco.text);
dados.sp_InsertProdutoPrecoAuxiliarAll.params [2].asstring := xComputador;
dados.sp_InsertProdutoPrecoAuxiliarAll.ExecProc;
  1) qd executo, da o seguinte erro:xsqlda index out of range
2) obs: para carregar todos os registros, o for esta correto?
  obrigado
 samuel