From d67f746de817a2829f091e6cf15134b950252770 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 24 Mar 2010 13:45:48 +0000
Subject: [PATCH] Fix AV on application exit while datagrid has pending
 changes. Fixes issue #1780.

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

diff --git a/source/main.pas b/source/main.pas
index 3230f770..fa28f673 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1135,13 +1135,13 @@ begin
   FreeAndNil(CreateDatabaseForm);
   FreeAndNil(SearchReplaceDialog);
 
+  // Close database connection
+  DoDisconnect;
+
   // Clearing query and browse data.
   SetLength(DataGridResult.Rows, 0);
   SetLength(DataGridResult.Columns, 0);
 
-  // Close database connection
-  DoDisconnect;
-
   // Save various settings
   OpenRegistry;
   MainReg.WriteInteger(REGNAME_TOOLBAR2LEFT, ToolBarStandard.Left);