<div dir="ltr">Hello,<br><br>In TCustomSQLQuery.Create, FRefreshSQL:TStringList is created on line 2095, but never freed. This causes a small memory leak.<br><br>Please see the attached test program demonstrating the issue.<br><br>Reported on the bugtracker here: <a href="http://bugs.freepascal.org/view.php?id=27220">http://bugs.freepascal.org/view.php?id=27220</a><br><br>Please review the attached patch, and apply if suitable.<div><br></div><div>Thanks.<br><br>---<br><br>program project1;<br><br>uses<br>  heaptrc, SQLdb, DB;<br><br>var<br>  FQuery : TSQLQuery;<br><br>begin<br>  FQuery := TSQLQuery.create(nil);<br>  FQuery.Free;<br><br>end.<br><br>---<br><br>Index: sqldb.pp<br>===================================================================<br>--- sqldb.pp (revision 29360)<br>+++ sqldb.pp (working copy)<br>@@ -2118,6 +2118,7 @@<br>   FreeAndNil(FInsertSQL);<br>   FreeAndNil(FDeleteSQL);<br>   FreeAndNil(FUpdateSQL);<br>+  FreeAndNil(FRefreshSQL);<br>   FServerIndexDefs.Free;<br>   inherited Destroy;<br> end;<br><br>---</div></div>