diff --git a/packages/fcl-db/src/base/bufdataset.pas b/packages/fcl-db/src/base/bufdataset.pas
index 1e695802bf..fa2b82dc1f 100644
--- a/packages/fcl-db/src/base/bufdataset.pas
+++ b/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