Fechar um aplicativo com uma mensagem de erro fatal

procedure TForm1.Button1Click(Sender: TObject);
begin
  FatalAppExit(0, 'Erro fatal na aplicação.');
end;