[MasterXP]

Mira, lo que tienes que hacer es un ciclo que te llene el ComboBox, en el Evento OnEnter del ComboBox pones lo siguiente:

Código Delphi [-]
  procedure TForm1.ComboBox1Enter(Sender: TObject);
  var
  Art_list:string; //Art_List es la variable que te cojera el valor de la tabla
  //y se lo pasara al combobox
  Ultimo:Integer;
  i:integer;
  begin
     With ADOQuery1 DO
     Begin
     Close;
     SQL.Clear;
     SQL.Add('Select (Count(Distinct(Campo))) From TuTabla;')
     Open;
     //La Variable Ultimo es tipo integer, y te servira para finalizar el ciclo
     Ultimo:=Fields[0].AsInteger;
   ADOQuery1.Close;
     
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('Select Distinct(Campo) From TuTabla ORDER BY Campo')
   ADOQuery1.Open;
 ADOQuery1.First;
   FOR i:=1 To Ultimo DO
     Begin
     Art_List:=ADOQuery1.Fields[0].AsString;
ComboBox1.Items.Add(Art_List);
   ADOQuery1.Next;
     end;
     end;
     end;
  end;