delphi中如何让程序自动重新运行