一段小程序,出了什么问题

procedure Tqueryfrm.Button1Click(Sender: TObject);
var
  str1,str2:String;
begin
  str1:='select * from 设备台帐 where';
  str2:=combobox1.Text;
  with datamodule1.SBTZADOQuery do
  begin
    close;
    sql.Clear;
    sql.Add(str1);
    case str2 of
      '部门':        sql.Add('部门 like'''+edit1.Text+'''');
      '计算机编号':  sql.Add('计算机编号 like'''+edit1.Text+'''');
      '计算机型号':  sql.Add('计算机型号 like'''+edit1.Text+'''');
      '网络名':      sql.Add('网络名 like'''+edit1.Text+'''');
      '操作系统':    sql.Add('操作系统 like'''+edit1.Text+'''');
      '补丁':        sql.Add('补丁 like'''+edit1.Text+'''');
      'IP':          sql.Add('IP like'''+edit1.Text+'''');
      'CPU':         sql.Add('CPU like'''+edit1.Text+'''');
      '内存':        sql.Add('内存 like'''+edit1.Text+'''');
      '硬盘':        sql.Add('硬盘 like'''+edit1.Text+'''');
      'USB':         sql.Add('USB like'''+edit1.Text+'''');
      '光驱':        sql.Add('光驱 like'''+edit1.Text+'''');
      '软驱':        sql.Add('软驱 like'''+edit1.Text+'''');
      '打印机型号':  sql.Add('打印机型号 like'''+edit1.Text+'''');
      '备注':        sql.Add('备注 like'''+edit1.Text+'''');
      '登记日期':    sql.Add('登记日期 like'''+edit1.Text+'''')
      else showmessage('字段名错误,请重新输入')
    end;
    open;
    edit1.Clear;
  end;
end;
编译之后就出现str2类型不匹配的问题,为什么会这样啊,怎么解决