From 6ed96833c771aa6365fbd7da72f6365046fb721d Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 4 Nov 2016 15:22:22 +0100
Subject: [PATCH] fix potential AV on exit

---
 src/ce_main.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index f9f5b037..31dd0655 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1306,6 +1306,8 @@ var
   site: TControl;
   anchl: TAnchorKind;
 begin
+  if csDestroying in ComponentState then
+    exit;
   for i := 0 to fWidgList.Count-1 do
   begin
     widg := fWidgList.widget[i];