[NIch]

Код:

// Создание формы
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Скрыть главную форму
  Application.ShowMainForm := False;
  ShowWindow(Application.Handle, sw_Hide);
  ShowWindow(Form_Main.Handle, sw_Hide);
end;

// Закрытие формы
procedure TForm1.FormClose
  (Sender: TObject; var Action: TCloseAction);
begin
  if MessageBox(Handle, 'Выйти?',
    'Вопрос', MB_YESNO + MB_ICONQUESTION) = mrYes then
  begin
    //Показать главную форму
    Action := caFree;
    Application.ShowMainForm := True;
    ShowWindow(Application.Handle, SW_RESTORE);
    ShowWindow(Form_Main.Handle, SW_RESTORE);
  end
  else
    Action := caNone;
end;

При создании модальной формы главная изчезает, модальная нормально сворачивается, при закрытии модальной формы главная появляется..