---"紧急呼叫高手"---"救急如救人"---帮我看看出什么问题了---

   在我这个系统中,"材料管理"的查询按钮出现了个问题,查询的时候总是出错,帮我看看是什么问题吧...
   可以下载我附件的朋友就在你电脑上帮我看看,不可以的看下我下面的代码吧,谢谢大伙的救急!!
   祝福论坛上看到我帖子的朋友身体健康,万事如意!!!
   主窗口在附图.
---------------------------------------------------------
   以下是代码:
   查询:
procedure TfrmCLBM_FZLR.btnQueryClick(Sender: TObject);
begin
  aqCLBM.filter := 'MatCode like' + '''' + trim(edit1.text) + '%''' + ' and MatName like ' + '''%' +  trim(edit2.text) + '%''' + ' and Size like' + '''%' + trim(edit3.text) + '%''';
  aqCLBM.filtered := true;
end;
  确定:
procedure TfrmCLBM_FZLR.btnOKClick(Sender: TObject);
var
  I: integer;
begin
  //设置动态数组长度
  setLength(ClbmRec, dbgrid.SelectedRows.Count);
  //将DbGrid里的数据传进到全局数组clbmRec中
  for i := 0 to dbgrid.SelectedRows.Count - 1 do
  begin
    DBGrid.DataSource.DataSet.GotoBook(pointer(DBGrid.SelectedRows.Items[i]));
    clbmRec[i].clbm := aqCLBM.fieldbyname('MatCode').asstring;
    clbmRec[i].clmc := aqCLBM.fieldbyname('MatName').asstring;
    clbmRec[i].ggxh := aqCLBM.fieldbyname('Size').asstring;
    clbmRec[i].jldw := aqCLBM.fieldbyname('CUnit').asstring;
    clbmRec[i].jhdj := aqCLBM.fieldbyname('Price').value;
    clbmRec[i].djdw := aqCLBM.fieldbyname('PUnit').asstring;
  end;
  close;
end;
   其他的:
procedure TfrmCLBM_FZLR.FormCreate(Sender: TObject);
begin
//初始化变量
  setLength(clbmRec,0);
  aqCLBM.Active := True;
end;
procedure TfrmCLBM_FZLR.btnOKClick(Sender: TObject);
var
  I: integer;
begin
  //设置动态数组长度
  setLength(ClbmRec, dbgrid.SelectedRows.Count);
  //将DbGrid里的数据传进到全局数组clbmRec中
  for i := 0 to dbgrid.SelectedRows.Count - 1 do
  begin
    DBGrid.DataSource.DataSet.GotoBook(pointer(DBGrid.SelectedRows.Items[i]));
    clbmRec[i].clbm := aqCLBM.fieldbyname('MatCode').asstring;
    clbmRec[i].clmc := aqCLBM.fieldbyname('MatName').asstring;
    clbmRec[i].ggxh := aqCLBM.fieldbyname('Size').asstring;
    clbmRec[i].jldw := aqCLBM.fieldbyname('CUnit').asstring;
    clbmRec[i].jhdj := aqCLBM.fieldbyname('Price').value;
    clbmRec[i].djdw := aqCLBM.fieldbyname('PUnit').asstring;
  end;
  close;
end;
--------------------------------------------------------------------------------------
ADOQuery1的name是aqCLBM
用户名:zxz密码123
我现在没那么多分,只好给50分了,求求大家看在我诚意的份上看看吧～