From f828755ddfdde9b0a347716dff721476a84f2ca7 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 30 Jun 2025 07:48:46 +0000
Subject: [PATCH] TParadoxDataset: Workaround to avoid crash when
 TParadoxDataset.First is called in a 64-bit application under Win-11/24H2.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9788 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tparadoxdataset/paradoxds.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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;