delphi中我用定时器每隔一段时间执行操作