使用ADOTABLE把表里得单列值加载到combobox到底有几种写法?请指教.

今天使用ADOtable组件把表里得name字段加载到combobox里,用了很多种方法,都不对.(主要是我本人的问题),只用下面的方法成功了,请各位给出你们的方法,谢谢了.
var pp:string;
while not ADOTABLE1.Eof do
begin
 pp:=adotable1['name'];
 if combobox1.items.indexof(pp)=-1  then
 combobox1.Items.add(adotable1['name']);
 adotable1.next;
 ComboBox1.Text:=combobox1.items[0];
end;end;
另外,如果使用ADOTABLE组件和dbtext组件来写查询,有什么好方法没?请各位高手指点,谢谢了.