Как вывести в комбобох столбцы таблицы?

[MeTeOpA]

вот собственно и вопрос=)

[Dark_Spirit]

 var i:integer;
begin
 combobox1.clear;
 for i:=0 to adotable1.FieldCount-1 do
  combobox1.Items.Add(adotable1.Fields[i].DisplayName);
end;

[MeTeOpA]

а как в комбобокс вывести значения одного из полей(допустим поле называется ID_setki)?

[Dark_Spirit]

begin
 if adoquery1.active
   then adoquery1.active:=false;
 combobox1.clear;
 adoquery1.sql.text:='select id_setki from <table_name>';
 adoquery1.open;
 while not(adoquey1.eof) do
  begin
   combobox1.items.add(adoquery1.fieldbyname('id_setki').value);
   adoquery1.next;
 end;
end;

[MeTeOpA]

спс огромное)
ЗЫ : на весы кликнул)