Actualizar estructura de la Base de Datos

[Durbed]

Me ha surgido un problema, y es que segun mi aplicacion va creciendo, a la vez crecen las bases de datos. La idea es hacer una pequeña aplicacion, donde se escoja la base de datos sobre la que realizar la actualizacion y el fichero sql que contiene dicha actualizacion.

Lo he intentado hacer mediante este codigo:

Código PHP:

 With IBSQL1 do
        Begin
          SQL.Clear;
          SQL.LoadFromFile(EdSQL.Text);
          Prepare;
          ExecQuery;
        End; 


y otros similares, con componentes TIBQuery y TIBSQL, pero me da un error en el SQL, el caso es que dicho codigo en SQL funciona si lo ejecuto desde el "EMS Interbase & Firebird Manager", el codigo SQl es el siguiente:

Código PHP:

ALTER PROCEDURE CONTACTO_DIRECCION 
RETURNS (
   ...
AS
   ...
BEGIN
   ...
 For select cod_contacto, nom_contacto, COD_DIRECCION, nombre_dir, fiscal, calle,   numero, municipio, provincia from contactos left join direcciones
        on cod_contacto=c_cont
        order by nom_contacto, cod_contacto, nombre_dir
        into :NUEVO_COD_CONTACTO, :NUEVO_NOM_CONTACTO, :NUEVO_COD_DIRECCION,   :NUEVO_NOMBRE_DIR, :NUEVO_FISCAL, :NUEVO_CALLE, :NUEVO_NUMERO,   :NUEVO_MUNICIPIO, :NUEVO_PROVINCIA
   ... 


El error salta en esa expresion y es el siguiente: "Dynamic SQL error, SQL error code = -104, Token unknown - line 30 char 13 ?." El error se corresponde con: "into :NUEVO_COD_CONTACTO, ..." mas concretamente sobre los dos puntos.

A ver si me pueden ayudar con este error que me trae de cabeza, y como les digo, funciona perfectamente si lo ejecuto desde el EMS.

Un saludo y gracias por aguantar el toston .