Fórum Criar Store Procedure Via Programação. #267952

Estou jogando o comando SQL abaixo em um [b:aebb99cabf]IBQuery[/b:aebb99cabf], para que possa ser criado esta store procedure via programação.

CREATE PROCEDURE ´SP_CONSCODBARRA´
(
´CBARRAS´ CHAR(15) CHARACTER SET ISO8859_1
)
RETURNS
(
´CODPROD´ CHAR(13) CHARACTER SET ISO8859_1
)
AS
declare variable VERRETORNO CHAR(13);
begin
FOR Select CodProd
From CODBARRA
Where (CODBARRAS= :CBARRAS)
INTO:CODPROD
DO
BEGIN
suspend;
END
end



Acontece que no QuickDesk, este comando funciona perfeitamente, mas no Delphi, dá erro ao executar..
Estou adicionando linha por linha na IBQuery com o comando Dm.IBQuery1.sql.add(linhasql);

Como faço para criar uma store procedure via programação. Pois quando crio uma nova sp, não vou precisar digitar o codigo no cliente, apenas faço um programa que realize as alterações automaticamente.