* Fix for 37993, attempt to prevent memory leak in case of database shutdown

git-svn-id: trunk@47216 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -1373,9 +1373,12 @@ end;
 
 destructor TSQLConnection.Destroy;
 begin
-  Connected:=False; // needed because we want to de-allocate statements
-  FreeAndNil(FStatements);
-  inherited Destroy;
+  try
+    Connected:=False; // needed because we want to de-allocate statements
+  Finally  
+    FreeAndNil(FStatements);
+    inherited Destroy;
+  end;
 end;
 
 function TSQLConnection.StrToStatementType(s : string) : TStatementType;