[NIch]

Мне нужно чтобы при закрытии 2-ой формы (та которая у вас модальная) приложение свернулось (чтоб на экране не было ни одной формы). Но чтоб при попытке развернуть приложение из панели задач показалась главная форма.

Код:

// Закрытие модальной формы
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);
    ShowWindow(Form_Main.Handle, SW_MINIMIZE);//Добавь строку
  end
  else
    Action := caNone;
end;