Hola,
Echa un vistazo a la cabecera del procedimiento:
Código Delphi
[-]
procedure Tpr0002.PERIODO_ACTIVO (pw_plan_clave, pw_tipo: string;
var pw_anio, pw_numero: integer; pw_error: variant);
Las variables que pasas por referencia son "pw_anio"y "pw_numero", de tipo integer las dos. Pero, "pw_error" no se pasa por referencia. Tendrás que añadir la palabra reservada "var" antes del identificador de la variable, tal que así:
Código Delphi
[-]
procedure Tpr0002.PERIODO_ACTIVO (pw_plan_clave, pw_tipo: string;
var pw_anio, pw_numero: integer; var pw_error: variant);