多次showmodal一个窗体就会出问题，主窗体不会立即显示，如何解决？附上问题代码

Question

begin
  Application.Initialize;  try
    Frm_Login := TFrm_Login.Create(application);
    Frm_Login.ShowModal;    while Frm_Login.ModalResult=9 do
    begin        Frm_Login.ShowModal;
    end ;    if  Frm_Login.ModalResult=8 then
      Application.Terminate;
  finally
      Frm_Login.Free;
  end;
  Application.CreateForm(TFrm_Main, Frm_Main);  Application.Run;
end.

Answer 1

同时要求不允许利用主窗体的onclose来释放登录窗体。

Answer 2

在登录窗体设置 modalresult=x ，x变量我在项目单元中要使用，不能show