Fórum Executar Script - Create Procedure #284914

Pessoal

Estou tentando executar a script abaixo com um ExecSql mas ta dando o seguinte erro:
Token unknown - line2, char -1 SET

To usando a SqlQuery/DbExpress, com o D7 professional.

se eu colar este script no Ibconsole executa sem problemas.
Pesquisando no forum achei algumas dicas de que tenho que usar o
IBScript da paleta Interbase, Mas o problema é que eu nao tenho
este componente no meu Delphi.
Alguem sabe como faco pra executar este script, ou como faco pra instalar este componente.

Obrigado .. O script vai abaixo:


COMMIT WORK;
SET AUTODDL OFF;
SET TERM ! ;
Create Procedure ACERTACLIENTE
(
NOTA VARCHAR (6),
CLI INTEGER
)
AS

declare variable nome varchar(40);
declare variable cnpj varchar(14);
declare variable cod int;
declare variable filial int;
declare variable docto varchar(6);
declare variable serie varchar(2);
declare variable uf varchar(2);
BEGIN
for select nome_cl, cgc_cl, cod_cl, uf_cl
from cliente
where cod_cl = :cli
into :nome, :cnpj, :cod, :uf
do
begin
update notasai
set nome_ns = :nome, cnpj_ns=:cnpj, uf_ns=:uf, codigo_ns=:cod
where filial_ns=101
and docto_ns=:nota
and serie_ns = ´1´;
end
END
!
SET TERM ; !
COMMIT WORK;
SET AUTODDL ON;