From efb46314fc07d5c24565deab8de736a114b052d0 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 31 Oct 2023 17:29:38 +0100
Subject: [PATCH] Fix EAccessViolation in TMainForm.DBtreeFocusChanged:124

---
 source/main.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/main.pas b/source/main.pas
index 4ad66c20..2d723582 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -9697,7 +9697,8 @@ begin
       SynSQLSynUsed.FunctionNames.EndUpdate;
     end;
 
-    if (FActiveDbObj.NodeType <> lntNone)
+    if (FActiveDbObj <> nil)
+      and (FActiveDbObj.NodeType <> lntNone)
       and (
         (PrevDBObj = nil)
         or (PrevDBObj.Connection <> FActiveDbObj.Connection)