各位大虾，关于timer组件监视数据库的问题！！！请高手们帮帮小弟啊！！见人有分啊！！

问题如下：procedure TForm1.Timer1Timer(Sender: TObject);
var
  I: Integer;
  s:string;
begin
     timer1.Enabled:=false;    
     adoquery2.Open;
     adoquery2.First;
 while not adoquery2.Eof  do
     begin
     for I := 0 to adoquery2.RecordCount-1 do
     begin
     s:=Systemdir+adoquery2.fieldbyname('filename').AsString;
     adoquery1.Close;                 //将访问时间更新进去
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('update xml set accesstime='''+datetimetostr(now())+'''');
     adoquery1.SQL.Add('where filename='''+adoquery2.fieldbyname('filename').AsString+'''');
     adoquery1.Prepared;
     adoquery1.ExecSQL;
     end;
      ExecuteParser(s);    //调用某一个函数执行此字符串
         adoquery1.Close;              //将标识符更新
         adoquery1.SQL.Clear;
         adoquery1.SQL.Add('update xml set data=true');
         adoquery1.SQL.Add('where filename='''+adoquery2.fieldbyname('filename').AsString+'''');
         adoquery1.Prepared;
         adoquery1.ExecSQL;
              adoquery2.Next;
              timer1.Enabled:=true;
     end;
我想要对access数据库进行实时监控啊
当数据库中有记录时就执行，直到执行完毕，如果数据库中没有记录，就处于等待状态。
但是我在把数据库中的记录执行完毕后，timer并没有停止，而是重复执行啊
这是为什么啊
请高手指点啊！！