timer问题

Question

procedure TForm1.Timer1Timer(Sender: TObject);
var
        time1 : TDateTime;
        time2 : TDateTime;
        time3 : TDateTime;
begin
         time1 := strtotime('10:20:00');
         time3 := strtotime('10:23:00');
         time2 := time;         
         if time2<time3   then
                begin
                   if time1<time2 then
                    begin
                    Timer1.OnTimer :=   Btnl_zdgsClick;
                    end;
                end;end;本意想时钟间隔为2分钟，当系统时间time2在time1和time3之间时，执行Btnl_zdgsClick。
但现在time2大于time3后，仍间隔2分钟执行Btnl_zdgsClick一次，这是为什么呢？该怎么改呢？

Answer 1

  if time1<time2 then
  begin
    Btnl_zdgsClick(nil);         //修改这一句
  end;
这样试试！

Answer 2

Timer1.OnTimer := Btnl_zdgsClick哪有这样赋值的啊？试下一楼的方法吧