思路1：
需要重启程序的时候，在onclose事件里面调用了一个批处理bat文件（AT 脚本）；
然后在批处理文件里面加入适当延迟（比如2秒）；通过批处理文件重新启动该程序；

思路2：
你另外写个小程序，用那个程序来启动你的程序

你的程序关闭时－》调用那个小程序
小程序启动你的程序（先判断程序是否已经关闭）
小程序自己关闭

在onclose里面
shellexecute(self.handle,nil,PChar('c:\小程序.exe'),nil,nil,sw_shownormal);

小程序的代码
在formcreate里面
shellexecute(self.handle,nil,PChar('c:\你的程序.exe'),nil,nil,sw_shownormal);
close;

思路3:
在退出前调用打开程序的语句，最简单

Application.Terminate;
winexec(Pchar(paramstr(0)), sw_show);

做成函数：
procedure KillApplication(Restart: boolean);
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
if Restart then
begin
GetStartupInfo(StartInfo);
FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
CreateProcess(nil, GetCommandLine, nil, nil, False,
CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil,
PChar(StartDir), StartInfo, ProcInfo);
end;
TerminateProcess(GetCurrentProcess, 1);