Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select distinct Column1 from Table1');
{Column1是你要显示的字段，Table1是你访问的表}
Query1.ExecSQL;
Query1.Open;

while Query1.Eof do
begin
DBComboBox1.Clear;
DBComboBox1.AddItem(Query1.FieldValues['Column1'],***)；{少了一个参数，不知道添什么，我不怎么用Delphi，用C＋＋Builder多些。C＋＋Builder语法就一个参数}
end;

var
  I:Integer;
  s:string;
begin
  ADOQuery1.SQL.Add('select distinct Column1 from Table1');
{Column1是你要显示的字段，Table1是你访问的表}
  ADOQuery1.Close;
  ADOQuery1.Open;
  DBComboBox1.Clear;

  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    s:=ADOQuery1.fieldbyName('Column1').asstring;
    DBComboBox1.Items.Add(s);
    ADOQuery1.Next;
  end;
end;
根据上面那位做的修改