Bagaimana Cara Me-Restart Program yang sedang berjalan

Terkadang pada saat tertentu, kita ingin program yang kita bikin me-restart dirinya (Tanpa Harus keluar dari aplikasi program yang kita bikin),

  
procedure TForm1.Button1Click(Sender: TObject);
var
  NamaProgram: PChar;
begin
  NamaProgram:= PChar(Application.ExeName);
  WinExec(NamaProgram, SW_SHOW);
  Application.Terminate;
end;


:) mudah2an bermanfaat