高手们！一个关于ComboBox简单的问题。请进吧！！！

  with ADOD_Locate do
  begin
    try
      Close;
      CommandText := 'Select Distinct Name From Table1';
      OPen;
      cbSearchValue.Items.Clear;//cbSearchValue为ComboBox
      First;
      while not Eof do
      begin
        cbSearchValue.Items.Add(Fields[0].AsString);//增加名字，假设Fields[0]为名字
        Next;
      end;
    finally
      Close;
    end;
  end;
删除：cbSearchValue.Items.delete(cbSearchValue..ItemIndex)；
注：如果名字是数据表中的记录要把他在数据表中删除，然后重新刷新即可。