[firebase-br] Procedure de Seleção e Inclusão

[Dominio Informatica]

Boa tarde...

Fiz uma procedure com o intuito de fazer uma pesquisa de todos os meus 
clientes que tem email registrado e inserir numa nova tabela. Então fiz 
assim

Create Procedure InsereEmails
Returns(
            Nome Varchar(100),
            Email Varchar(60)
as
begin
       For
       Select Nome,Email from Clientes where Email!=''
       into :Nome,:Email
       do begin
       Insert Into EnviaEmail(Nome,Email)Values(:Nome,:Email);
       end;
      Suspend;
end;

Compila mas não envia os resultados esperados...
Se alguem puder me ajudar...

Agradecido,
Rodrigo