我就这么多分了，希望各位高手帮帮忙，帮小弟解决这个问题，见人有分！！！（关于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;
  with adoquery1 do
     begin
     Close;                 //将访问时间更新进去
     SQL.Clear;
     SQL.Add('update xml set accesstime='''+datetimetostr(now())+'''');
     SQL.Add('where filename='''+adoquery2.fieldbyname('filename').AsString+'''');
     Prepared;
     ExecSQL;
     end;
     end;
      ExecuteParser(s);    //调用某一个函数执行此字符串
    with adoquery1 do
         begin
         Close;              //将标识符更新
         SQL.Clear;
         SQL.Add('update xml set data=true');
         SQL.Add('where filename='''+adoquery2.fieldbyname('filename').AsString+'''');
         Prepared;
         ExecSQL;
         end; 
              adoquery2.Next;
              timer1.Enabled:=true;
     end;
我想要对access数据库进行实时监控啊
当数据库中有记录时就执行，直到执行完毕，如果数据库中没有记录，就处于等待状态。
但是我在把数据库中的记录执行完毕后，timer并没有停止，而是重复执行啊
这是为什么啊如果要实现我上述的功能该怎么做啊？？
请高手指点啊！！