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

delphi 获取较系统时间并和指定的字符串时间进行比较，当指定时间小于等于系统时间时弹出提示框。
如：系统时间为“2007年7月10日   14:08:43”我设置的时间为   “2007年7月10日  

14:00:43”这时应弹出提示框。还有如何不用时钟控件在程序中自定义一个时钟来控

制比较，时钟可能会设置10分钟比较一次。我问的比较烦琐，谢谢耐心的朋友！^-^

------解决方案--------------------
在程序中放一个timer设置它的Interval等于10*60*1000

例如 如果相差60秒 就提示
if SecondsBetween( Now,StrToDateTime( '2007-07-10 14:00:43 ' ) ) > 60 then
showmessage( ' ' );