From 438122dd9fd890a6eb4692a1bc07e8bd498fb109 Mon Sep 17 00:00:00 2001
From: "Dmitry D. Chernov" <blackdoomer@yandex.ru>
Date: Fri, 29 Sep 2017 02:16:18 +1000
Subject: [PATCH] Set Delphi-like default exception handler (without 'Cancel'
 button)

---
 src/editor/Editor.lpr | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index f1a9c30..91df01a 100644
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -52,6 +52,7 @@ uses
 {$R *.res}
 
 begin
+  Application.ExceptionDialog := aedOkMessageBox;
   Application.Initialize();
 
   Application.CreateForm(TMainForm, MainForm);
-- 
2.29.2