Delphi 的combobox 从数据库获取下拉菜单内容

TForm_dp.ComboBox1.DropDown(Sender: TObject);//最好写在ComboBox1的DropDown事件下，点击时才使用
begin
var
  i:integer;
begin
   with ADOQuery1 do
     begin
       Close;
       SQL.Clear;
       SQL.Add('select * from WZ原料产地');
       SQL.Add('order by 产地');
       Open;
     end;

ComboBox1.Items.clear;//不clear一下的话，每点一次下拉选项会重复叠加

ComboBox1.Items.Add('');//这是增加了一个为空下拉选项，要用就加
   for i:=1 to ADOQuery1.RecordCount do
      begin

      ComboBox1.Items.Add(ADOQuery1.FieldByName('产地').AsString);
       ComboBox1.Items.Add(ADOQuery1.FieldByName('产地').AsString);
       ADOQuery1.Next;
      end;