* Fix memleak on refresh, spare record initialized twice

git-svn-id: trunk@38817 -

packages/fcl-db/src/base/bufdataset.pas

@@ -2238,9 +2238,10 @@ begin
     InitialiseIndex;
     F.SetIndexProperties;
     end;
-  if Active then
+  if Active  then
     begin
-    B.InitialiseSpareRecord(IntAllocRecordBuffer);
+    if not Refreshing then
+      B.InitialiseSpareRecord(IntAllocRecordBuffer);
     if (F.Fields<>'') then
       BuildIndex(B);
     end