Fórum Rotina, não esta Alimentando o Componente #586627

procedure TFENCERRAR_MDFE.btnInserirClick(Sender: TObject);
begin
  Close;
end;

procedure TFENCERRAR_MDFE.cbUfChange(Sender: TObject);
begin
  QryMunicipioEnce.Close;
  QryMunicipioEnce.Params.ClearValues();
  QryMunicipioEnce.Params[0].AsString := cbUf.Text;
  QryMunicipioEnce.Open();
  //LIMPA COMBOBOX ANTES DE POPULAR
  cbMunicipio.Clear;
  //SELECIONA UMA CIDADE PELO MINICIPIO
  QryMunicipioEnce.First;
  while not QryMunicipioEnce.Eof do
  begin
    cbMunicipio.Items.AddObject(QryMunicipioEnceMUNICIPIO.AsString,TObject(QryMunicipioEnceCOD_IBGE.AsInteger));
    QryMunicipioEnce.Next;
  end;
end;

procedure TFENCERRAR_MDFE.FormShow(Sender: TObject);
begin
  txtIdMDFe.Text       := IntToStr(IDMDFE);
  txtChaveMDFe.Text    := CHAVE_MDFE;
  txtProtocolo.Text    := PROTOCOLO;
  txtCnpjEmitente.Text := CNPJ_EMITENTE;
end;

end.