Fórum Criar stored procedure via delphi com query #466542

Ola, estou criando uma stored procedure query e o delphi ao executar o
qry.execsql me retorna o seguinte erro:
"General SQL Error.
Token Unknown - line 23, colunm 12
?."

segue abaixo o codigo sql da query

create or alter procedure ATUALIZA_ORDERNAHORAABAST
as
declare variable VNUMITEMVENDA integer;
declare variable VHORAABASTSTRING varchar(24);
declare variable VCODVENDA integer;
declare variable VCODBICO integer;
declare variable VHORAABAST date;
declare variable VENCERRANTE integer;
declare variable VAUX date;
declare variable VAUXINT integer;
declare variable VAUXCODVENDA integer;
declare variable VAUXNUMITEMVENDA integer;
begin
for select extract (day from recupVendas.datavenda ) || "."
|| extract (month from recupVendas.datavenda ) || "."
|| extract (year from recupVendas.datavenda ) || " "
|| extract (hour from recupVendas.horavenda ) || ":"
|| extract (minute from recupVendas.horavenda ),
recupvendas.codvenda, recupItensVenda.numitemvenda
from recupVendas
inner join recupItensVenda on (recupItensVenda.codvenda = recupVendas.codvenda)
order by recupItensVenda.encerranteinicial
into :VHORAABASTSTRING, :vCodVenda, :vNumItemVenda do
begin
update recupItensvenda set recupItensVenda.horaabast = :VHORAABASTSTRING
where recupItensVenda.codvenda = :vcodvenda and
recupItensVenda.numitemvenda = :vNumItemVenda;
end
for select bicos.codbico from bicos into :vcodbico do
begin
vAuxInt = 0;
for select recupitensvenda.codvenda, recupitensvenda.numitemvenda, recupitensvenda.horaabast, recupitensvenda.encerranteinicial
from recupitensvenda
where recupitensvenda.codbico = :vcodbico and recupitensvenda.encerranteinicial <> 0 and recupitensvenda.encerrante <> 0
order by recupitensvenda.encerranteinicial
into :vcodvenda, :vNumItemVenda, :vhoraabast, :vencerrante do
begin
if (:vauxint > 0) then
begin
if (:vAux > :vhoraabast) then
begin
update recupItensvenda set recupItensVenda.horaabast = :vhoraabast
where recupItensVenda.codvenda = :vAuxCodVenda and recupItensVenda.numitemvenda = :vnumitemvenda;
end
end
vAux = :vhoraabast;
vAuxCodVenda = :vCodvenda;
vAuxNumItemVenda = :vNumItemVenda;
vAuxInt = 1;
end
end
end



Alguem pode me ajudar a descobrir porque a query nao executa e mostra que existe uma interrogacao no codigo?
Obrigado