combobox(下拉框外部数据)

with dbcomboboxeh3 do
      begin
      Items.clear;
      with dm_fm.Query_xl do
      begin
      close;
      sql.clear;
      sql.add('select * from cyzl_qyg');
      open;
      first;
      begin
      while not Eof do
      begin
      dbComboBoxeh3.Items.Add(Fieldbyname('qyg_ywmc').asstring);
      next;
      end;
      end;
      end;
      end;
      dm_fm.Query_xl.Active:=false;