[Casimiro Notevi]

¿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;";