begin adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select  distinct 用户姓名 from 系统管理 where 姓名 !=''1''';
 adoquery1.Open;
 combobox1.Clear;
 while not adoquery1.eof do
begin
 combobox1.Items.Add(adoquery1.fieldbyname(' 用户姓名 ').AsString);
 adoquery1.Next;
 end
end;
那个数据写不进COMBOBOX