adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 表')
if not adoquery1.IsEmpty then
begin
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('字段').AsString);
adoquery1.Next;
end;
combobox1.ItemIndex:=0;(假设0是张三的索引)