* Fix bug #31532

git-svn-id: trunk@35618 -

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

@@ -2878,7 +2878,7 @@ begin
     Result := 0
   else
     begin
-    InternalSetToRecord(ActiveBuffer);
+    UpdateCursorPos;
     Result := FCurrentIndex.RecNo;
     end;
 end;