[ecfisa]

Hola amparog.

Hay algunos begin/end de más y una asignación a w_area que es innecesaria, ya que si no se cumple la condición,
su valor siempre queda igual a 0,

Código Delphi [-]
procedure TfrmEvaluacionPersonal.TabAreaShow(Sender: TObject);
begin
  w_Area:=0;
  with clicoopera do
  begin
    close;
    params.ParamByName('numero').AsInteger:=Prop_Funcionario;
    params.ParamByName('fecha').Asdate:=dbefecha.date;
    params.ParamByName('area').AsInteger:=1;
    params.ParamByName('Nivel').AsInteger:=1;
    Open;
    if not isempty () then
       w_area:= w_area + puntos(CliCoopera.fieldvalues['IdArea'],
                                CliCoopera.fieldvalues['IdNivel'],
                                CliCoopera.fieldvalues['IdEvaluacion'])
  end;
  with cliInteres do
  begin
    close;
    params.ParamByName('numero').AsInteger:=Prop_Funcionario;
    params.ParamByName('fecha').Asdate:=dbefecha.date;
    params.ParamByName('idarea').AsInteger:=1;
    params.ParamByName('idNivel').AsInteger:=2;
    Open;
    if not isempty () then
       w_area:= w_area + puntos(CliInteres.fieldvalues['IdArea'],
                                Cliinteres.fieldvalues['IdNivel'],
                                CliInteres.fieldvalues['IdEvaluacion'])
  end;
end;

pero no veo nada en esas líneas que pueda provocar la excepción que te aparece; a menos que estuviera en la función puntos...

Ahora, tomando en cuenta que en otro equipo compila y funciona bién, ¿ Revisaste el estado del equipo en que provoca el fallo
(estado del disco, virus, malware, etc) ?

Saludos.