llenar combobox con una tabla de access

[[Caral]]

Hola
Espero que te encuentres mejor.
1 campo:

Código Delphi [-]
   Adoquery1.SQL.Text := 'Select TuCampo From TuTabla';
   Adoquery1.Active := True;
   While not Adoquery1.Eof do
   begin
      Combobox1.Items.Add(Adoquery1.Fields[0].Text);
      Adoquery1.Next;
   end;

2 campos y asi sucesivamente:

Código Delphi [-]
   Adoquery1.SQL.Text := 'Select TuCampo1, Tucampo2 From TuTabla';
   Adoquery1.Active := True;
   While not Adoquery1.Eof do
   begin
      Combobox1.Items.Add(Adoquery1.Fields[0].Text);
      Combobox1.Items.Add(Adoquery1.Fields[1].Text);
      Adoquery1.Next;
   end

Saludos