From 303eea9e9403fd06b0f137140adca0b36cce9ee8 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 16 May 2019 12:41:56 +0000
Subject: [PATCH] RxFPC:fix mem leak in rxdbutils.DataSetLocateThrough - tnx.
 ssadragon

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6915 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxdbutils.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/rxdb/rxdbutils.pas b/components/rx/trunk/rxdb/rxdbutils.pas
index d10e89756..b65794d2f 100644
--- a/components/rx/trunk/rxdb/rxdbutils.pas
+++ b/components/rx/trunk/rxdb/rxdbutils.pas
@@ -458,7 +458,8 @@ var
   Bookmark: TBookmark;
 begin
   Result := False;
-  with DataSet do begin
+  with DataSet do
+  begin
     CheckBrowseMode;
     if BOF and EOF then Exit;
   end;
@@ -470,7 +471,11 @@ begin
     if SearchOrigin = rsdAll then
     begin
       Result := CompareRecord;
-      if Result then Exit;
+      if Result then
+      begin
+        Fields.Free;
+        Exit;
+      end;
     end;
 
     DataSet.DisableControls;