Application - restart (reiniciando aplicativo)

uses ShellApi;

procedure AppRestart;

var AppName : PChar;

begin

 AppName := PChar(Application.ExeName); 

 ShellExecute(Handle,'open', AppName, nil, nil, SW_SHOWNORMAL);

 Application.Terminate; 

end;