delphi 获取较系统时间并和指定的字符串时间进行比较，当指定时间小于等于系统时间时弹出提示框。

Question

如：系统时间为“2007年7月10日 14:08:43”我设置的时间为 “2007年7月10日 14:00:43”这时应弹出提示框。还有如何不用时钟控件在程序中自定义一个时钟来控制比较，时钟可能会设置10分钟比较一次。我问的比较烦琐，谢谢耐心的朋友！^-^

Answer 1

在程序中放一个timer设置它的Interval等于10*60*1000例如 如果相差60秒 就提示
if SecondsBetween( Now,StrToDateTime( '2007-07-10 14:00:43' ) ) > 60 then
  showmessage( '' );

Answer 2

在程序中放一个timer怎么方啊，我不要那中托放的控件，因为我监控的程序很多，有的10分钟一次，有的两分钟一次。我用 Timer1: TTimer;的方法，然后Timer1. 却什么也点不出来。