From fdd73b1ffbd81a277fc2454bbf8656383d8049fc Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Fri, 8 Jan 2021 11:00:17 +0100
Subject: [PATCH] Fix crash in SynMemoQueryStatusChange when resizing main
 window with no active query tab

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

diff --git a/source/main.pas b/source/main.pas
index 83cb226e..c4ad44a8 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6707,6 +6707,9 @@ procedure TMainForm.SynMemoQueryStatusChange(Sender: TObject; Changes:
 var
   Edit: TSynMemo;
 begin
+  // Crashed with scTopLine and an non-set ActiveQueryTab while resizing main window, so limit to modifications
+  if not (scModified in Changes) then
+    Exit;
   // Don't ask for saving empty contents. See issue #614
   Edit := Sender as TSynMemo;
   if Edit.GetTextLen = 0 then begin