Delphi中数据库查询的疑惑

昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：

procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxxy.Itemindex];
  if not adoconnection1.Connected then
  try
  adoconnection1.Open;
  except
  end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select 专业名称 from Speciality where 学院 =: XY');
  try
  adoquery1.Open;
  except
  end;
  ComboBoxZy.Items.Clear;
  while (not adoquery1.Eof) do
  begin
  ComboBoxzy.Items.Add(adoquery1.FieldValues['专业名称']);
  adoquery1.Next;
  end;

end;

 运行得到的结果是：

郁闷啊~我查看了，数据库的就是那两个列表名啊！怎回事啊？有谁能告诉我？

---

解决了~~！我太不熟悉了~！！
adoquery1.SQL.Add('select 专业名称 from Speciality where 学院 ='''+XY+'''');
晕~~

---

procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxxy.Itemindex];
  if not adoconnection1.Connected then
  try
  adoconnection1.Open;
  except
  end;
&nb