table查询问题！小弟急用！！

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
table2.Refresh;
with table2 do
try
  disablecontrols;
  filtered:=false;
  memo1.text:=memo1.Text+''''+edit1.text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if table2.recordcount=0 then begin
messagebeep(1);
showmessage('没有符合条件的学生,请确认条件或放弃查询!');
if messageDlg('是否继续查询？只有结束查询才能作其他操作!',mtinformation,
[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
table2.close;
table2.Open;
end;
end else begin
 if messageDlg('是否继续查询？只有结束查询才能作其他操作!',mtinformation,
 [mbYes,mbNo],0)=mrno then begin
   filtered:=false;
 table2.Close;
 table2.Open;
 end;
end;
end;
end;
小弟运行老提示！不能对closedataset进行操作！小弟急用！在线等！！