這段代碼什麼意思啊?

這段代碼什麼意思啊? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061217214802252.html
procedure   TForm3.RadioButton3Click(Sender:   TObject);  
  begin  
  ADOTable1.refresh;  
  with   ADOTable1   do  
  try  
      disablecontrols;  
      filtered:=false;  
      memo1.Text:=memo1.Text+''''+edit1.Text+'''';  
      filter:=memo1.text;  
      filtered:=true;  
  finally  
      enablecontrols;  
  if   ADOTable1.recordcount=0   then   begin  
  messagebeep(1);  
  showmessage('沒有符合的,請確認條件或放棄查詢!');  
  if   messageDlg('是否繼續查詢？只有結束查詢才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno   then   begin  
      filtered:=false;  
  ADOTable1.close;  
    ADOTable1.open;  
  end;  
  end   else   begin  
    if   messageDlg('是否繼續查詢？,只有結束查詢才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno   then   begin  
      filtered:=false;  
  ADOTable1.close;  
  ADOTable1.open;  
  end;  
  end;  
  end  
   
  是個查詢按扭的操作,用ADO串連的ACESS資料庫.可是能不能具體的說一下每句的意思啊.挺多看不懂的..  
  謝謝..

這個就是通過選擇條件讓ADOTable用過濾器來尋找資料的

filter:=''是過濾條件  
  filtered是過濾的方法，用法類似locate

謝謝..