Action := CaNone;

Form1.Hide;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Begin
ShellExecute(Handle, nil, PChar(Application.ExeName), nil, nil,  SW_SHOWNORMAL);
Application.Terminate;
End;