如何使Combobox空间具有与DBLookupCombobox相同的 ListItems ？(50分)

　　在一个程序中，有一个 Combobox 、一个 DBLookupCombobox 控件，
DBLookupCombobox控件能自动从数据库中获得列表项，现在想把它的列表
项直接赋给 Combobox 控件，也就是说 Combobox 控件中显示的下拉列表
与 DBLookupCombobox 控件显示的完全一样，请问要如何写这段程序？

要用dblookupcombobox1 所连接的数据集。
比如dblookupcombobox1 连接的是 datesouce1->adoquery1，则：
while (not adoquery1.eof) do
begin
combobox1.items.add(adoquery1.filedbyname('xxxx').asstring;
query1.next;
end;

wihile dblookupbox1.listsource.dataset not eof do

procedure TWeightForm.FillThemeCombobox(CmbName:TTeThemeCombobox;QueryName:String;FieldName:String);
begin
Query1.DatabaseName:=ExTractFilePath(application.ExeName)+'Datas';
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('select * from '+QueryName);
Query1.Prepare;
Query1.Active:=true;
CmbName.Items.Clear;
While Not Query1.Eof do
begin
Cmbname.Items.Add(Query1.FieldByName(FieldName).AsString);
Query1.Next;
end;
end;
procedure TWeightForm.FormCreate(Sender: TObject);
begin
FillThemeCombobox(CmbPanel,'牌照类型库','牌照类型');
end;

我的意思是最好不要用循环，因为记录数很多；
有没有其它的更好的办法？

UP

没有了,我一直是这样用的