cargar lista en un combobox o tdblooupcombobox

[[Caral]]

Hola

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

Saludos