大家帮忙看看我的代码，clear后就再选不上值。

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;