diff --git a/components/tparadoxdataset/paradoxds.pas b/components/tparadoxdataset/paradoxds.pas
index a88418261..3a0e8e8df 100644
--- a/components/tparadoxdataset/paradoxds.pas
+++ b/components/tparadoxdataset/paradoxds.pas
@@ -630,11 +630,24 @@ begin
   ReadBlock;
 end;
 
+{
 procedure TParadoxDataset.InternalGotoBookmark(ABookmark: Pointer);
 begin
   if BookmarkValid(ABookmark) then
     SetRecNo(PLongWord(ABookmark)^);
 end;
+}
+procedure TParadoxDataset.InternalGotoBookmark(ABookmark: Pointer);
+var
+  bm: LongWord;
+begin
+  if ABookmark <> nil then
+  begin
+    bm := PLongWord(ABookmark)^;
+    if bm <= GetRecordCount then
+      SetRecNo(bm);
+  end;
+end;
 
 {
 procedure TParadoxDataset.InternalHandleException;