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.