From 7cc7007de1323535e1ed653c7216f251dff7190e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 4 Nov 2007 13:23:47 +0000
Subject: [PATCH] Fix one memory leak in threaded queries (detected by testing
 and comparing, using taskmanager)

---
 source/mysqlquerythread.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/mysqlquerythread.pas b/source/mysqlquerythread.pas
index 92763f96..38848a8e 100644
--- a/source/mysqlquerythread.pas
+++ b/source/mysqlquerythread.pas
@@ -338,7 +338,7 @@ begin
     on E: Exception do begin
       if E.Message = SCanNotOpenResultSet then begin
         Result := true;
-        ADataset := nil;
+        FreeAndNil(ADataset);
       end else AExceptionData := GetExceptionData(E);
     end;
   end;