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