关于DELPHI 时间限制的问题.if DateToStr(Date)>='2011-1-30' then 格式问题

procedure TForm1.Timer3Timer(Sender: TObject);begin if  DateToStr(Date)>='2011-1-30' then
 begin
     showmessage('时间到啦， !');
     Application.Terminate;  end;end;这里面的 if  DateToStr(Date)>='2011-1-30' then 好像怎么不行啊.  有时候,,时间明显比这个指定的时间小.但是还会弹出对话框 时间到啦..  是什么原因 ? 谁帮解决下.