Creacion de un Stored Procedure

[jafera]

Buenas tardes.

Esta es mi primera incursion en los stored procedures.

Tengo una tabla maestra CU0001E de la que quiero sacar los valores de los campos C11, C10, C5, C6, C7 y C13.
Despues en la tabla destino CU0001 quiero hacer un update para que me actualize los campos LLICENCIA, NOM, COGNOM1, COGNOM2 y CODIUCI, siempre que se cumpla la condicion DNI=NI.

Este es el codigo del SP

Código SQL [-]
 
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
CREATE PROCEDURE "ACTUALITZA_RFEC" 
(
  "LLICENCIA" VARCHAR(14) CHARACTER SET ISO8859_1,
  "NOM" VARCHAR(20) CHARACTER SET ISO8859_1,
  "COGNOM1" VARCHAR(25) CHARACTER SET ISO8859_1,
  "COGNOM2" VARCHAR(25) CHARACTER SET ISO8859_1,
  "CODIUCI" VARCHAR(12) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^

ALTER PROCEDURE "ACTUALITZA_RFEC" 
(
  "LLICENCIA" VARCHAR(14) CHARACTER SET ISO8859_1,
  "NOM" VARCHAR(20) CHARACTER SET ISO8859_1,
  "COGNOM1" VARCHAR(25) CHARACTER SET ISO8859_1,
  "COGNOM2" VARCHAR(25) CHARACTER SET ISO8859_1,
  "CODIUCI" VARCHAR(12) CHARACTER SET ISO8859_1
)
AS
declare variable dni_1 varchar(12) character set iso8859_1;
declare variable llicencia_1 varchar(14) character set iso8859_1;
declare variable nom_1 varchar(20) character set iso8859_1;
declare variable cognom1_1 varchar(25) character set iso8859_1;
declare variable cognom2_1 varchar(25) character set iso8859_1;
declare variable codiuci_1 varchar(12) character set iso8859_1;
begin
  SELECT C11, C10, C5, C6, C7, C13
FROM CU0001E
INTO NI_1, :LLICENCIA_1, :NOM_1, :COGNOM1_1, :COGNOM2_1, :CODIUCI_1;
BEGIN
UPDATE CU0001
SET LLICENCIA=:LLICENCIA_1, NOM=:NOM_1, COGNOM1=:COGNOM1_1, COGNOM2=:COGNOM2_1, CODIUCI=:CODIUCI_1
WHERE DNI=NI_1;
END
 SUSPEND;
end
 ^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

Total que cuando lo llamo desde Delphi

Código Delphi [-]
 
F_ModulDades.Actualitza_RFEC.ExecProc;

me da un error "Required Param Value Not Set"
No se si me he olvidado algo, si he colocado las sentencias correctamente, etc...
Delphi 6 Firebird 1.5 componentes IBX