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;

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