procedure (Sender: TObject);
var user:string;
begin
user:=combobox2.Text;
with DataModule1.adoquery3 do
begin
Close;
SQL.clear;
SQL.Add('select 药品名称 from 药品信息表 where 药品简拼 like''%'+user+'%''');
Open;
 combobox2.clear;//这以后combobox2一直是空的，选不上下拉菜单里的值。

while   not   eof   do
      begin

      combobox2.items.add(FieldByName('药品名称').AsString);
      next;
      end;
first;
end;

end;

combobox2.items.clear;
while not dataset.eof do
begin
    combobox2.items.add('sflslf')
end;

如果没有，那是你数据库没有数据！

还是不行啊，从下拉菜单里还是选不上值，变化只是以前输入字母不显示出来，现在显示出来，一选择combobox里就空了

我个人认为是你在combobox的change 事件里清空了combobox的值.