[[Caral]]

Hola
No entiendo la parte de Self.dblkcbbCodigoPeriodoPago.KeyValue
Pero intenta asi:

Código Delphi [-]
with QTarifas_local do
      begin
        Close;
        ParamByName('pCodigoAno').Value:= StrToInt(Self.edtTarifaAno.Text);
        ParamByName('pCodigoPeriodo').Value:= Self.dblkcbbCodigoPeriodoPago.KeyValue;
        ParamByName('pCodigoTipoServicio').Value:= Self.dblkcbbCodigoTipoServicio.KeyValue;
        ParamByName('pZona').Value:= Self.dblkcbbZona.KeyValue;
        ParamByName('pCodigoServicio').Value:= '4,5';
        try
         Open;
        except on e: Exception do
          ShowMessage(e.Message);
        end;
      end;

Saludos