删除主窗体，创建新窗体的 方案， 牛逼啊。 佩服

procedure TForm5.Button1Click(Sender: TObject);

var   pMainForm: Pointer;

begin

{  pMainForm           := @Application.MainForm;     // 注释这个的话， 就不行。  必须有这个。

  Pointer(pMainForm^) := nil; }

   Application.CreateForm(TForm6, Form6);   

Form6.Show;   

Form5.Destroy

end;