Raised exception class

[amparog]

hola Ecfisa, te mando el código del evento On show.

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 begin
        w_area:=w_area+puntos(CliCoopera.fieldvalues['IdArea'],CliCoopera.fieldvalues['IdNivel'],CliCoopera.fieldvalues['IdEvaluacion']);
      end else begin
                   w_area:=w_area;
      end;
    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 begin
        w_area:=w_area+puntos(CliInteres.fieldvalues['IdArea'],Cliinteres.fieldvalues['IdNivel'],CliInteres.fieldvalues['IdEvaluacion']);
      end else begin
                  w_area:=w_area;
      end;
    end;
  end;

Puntos es una función que me devuelve un valor a partir de los parámetros pasados.
Los datos me los muestra en un Combobox. No se si la información enviada es suficiente.

Saludos y Muchas Gracias