Delphi中如何把字段替换为汉字来进行查找！

各位大虾：　　请教！　　我使用的控件为：TComboBox,TQuery，TButton,TEdit!    我的数据表为：Bookinfo!　字段为：Bid,Bname,Bauthor,Bsort,Bpublish!    我现在要查找数据表里面的内容，我的代码如下：　　procedure TF_find.ComboBox1Enter(Sender: TObject);
　　begin
      ComboBox1.Clear;
      ComboBox1.Items.Add('图书编号');
      ComboBox1.Items.Add('图书名称');
      ComboBox1.Items.Add('作者');
      ComboBox1.Items.Add('图书类型');
      ComboBox1.Items.Add('出版社');
    end;    procedure TF_find.Button1Click(Sender: TObject);
    begin
      with Query1 do
      begin
        close;
        sql.clear;
        sql.add('select Bid as 图书编号 ,Bname as 图书名称,');
        sql.add('Bauthor as 作者,Bsort as 图书类型,Bpublish as 出版社');
        sql.add('where :Pitem like :Pvalue ');
        Parambyname('Pitem').asstring:=Trim(ComboBox1.text);
        Parambyname('Pvalue').asstring:='%'+Trim(Edit1.text)+'%';
        open;
      end;
    end;    结果是：没有检索到什么记录！
　　　
　　请教！我应该怎么做？