Программирование Delphi

Как закрыть программу с предупреждающим сообщением пользователю о фатальной ошибке?

procedure TForm1.btnCloseClick(Sender: TObject);
begin
  FatalAppExit(
      0, 'Произошла неустранимая ошибка. ' +
      'Приложение будет закрыто. ' +
      'Пожалуйста, обратитесь в службу поддержки!');
end;

Функция FatalAppExit API Win32 показывает диалоговое окно с передаваемым сообщением в качестве второго параметра. Когда диалоговое окно закрывается, приложение заканчивает работу. Событие OnCloseQuery форм не вызывается, когда мы используем эту функцию.