¿No te confunde eso en lugar de algo como esto?:
Código Delphi
[-]Query->SQL->Text = "CREATE PROCEDURE Insert_Ficha "+
"RETURNS (cTitulo VARCHAR(60), nRegistro INTEGER, cGenero VARCHAR(25), cProductor VARCHAR(50), cUbica VARCHAR(13), cInterpretes VARCHAR(50)) "+
"AS "+
"DECLARE VARIABLE cSql VARCHAR(100);" +
"BEGIN "+
" cSql = 'SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos'; "+
" FOR EXECUTE STATEMENT cSql " +;
" ON EXTERNAL 'C:\Ocio_ant\Tablas\Ocio.gdb' "+
" AS USER 'SYSDBA' PASSWORD 'masterkey' "+
" INTO :cTitulo, :nRegistro, :cGenero, :cProductor, :cUbica, :cInterpretes " +
" DO "+
" BEGIN "+
" SUSPEND; "+
" END "+
"END;";