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; Ultimo:Integer;
i:integer;
begin
With ADOQuery1 DO
Begin
Close;
SQL.Clear;
SQL.Add('Select (Count(Distinct(Campo))) From TuTabla;')
Open;
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;