From 498ebfb5e1138c1c9526e4db6cdee2b0c008320c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 18 Jan 2023 07:36:57 +0100
Subject: [PATCH] Fix crash due to reset AppSettings.SessionPath through
 LogSQL()

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

diff --git a/source/main.pas b/source/main.pas
index 0e942033..2735182e 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -5471,6 +5471,7 @@ var
   LogIt: Boolean;
   LogItem: TDBLogItem;
 begin
+  OldSettingsPath := AppSettings.SessionPath;
   LogItem := TDBLogItem.Create;
   LogItem.Category := Category;
   if AppSettings.ReadBool(asLogTimestamp) then
@@ -5485,8 +5486,6 @@ begin
   if csDestroying in ComponentState then
     Exit;
 
-  OldSettingsPath := AppSettings.SessionPath;
-
   for LogItem in PostponedLogItems do begin
 
     // Log only wanted events