Fórum Query x TIBSQL #451244

Bom Dia Delphianos

Ao rodar o script abaixo no IBExpert, eu funciona corretamente

ALTER PROCEDURE RECOMPUTE_INDEX AS
declare variable indice_nome varchar(31);
declare variable vsSQL varchar(100);
declare variable tabela_nome varchar(40);

begin
for select rdb$index_name, rdb$relation_name
from rdb$indices
where rdb$system_flag = 0
into :indice_nome, :tabela_nome
do
begin

vsSQL = 'SET STATISTICS INDEX ';
vsSQL = vsSQL || :INDICE_NOME || ';';
EXECUTE STATEMENT :vsSQL;
-- insert into atualizacoes (index_name, relation_name)
-- values (:indice_nome,:tabela_nome);
end
suspend;
end

Mas ao rodar pelo Delphi me aparece a seguinte mensagem no exception on begin

Dynamic SQL Error
SQL error code = -104
Token unknown - line 11, column 7
?

Alguem tem alguma dica no que estou errando?

Agradeço a atenção