Я пробвай с това. При мен става с Paradox файл съдържащ 4000 записа.

procedure TForm1.Button1Click(Sender: TObject);
var
B: TBookmarkStr;
I: Integer;
begin
with Query1 do
begin
Open;
for I := 1 to 100 do Next;
B := Bookmark;
Close;
Open;
end;
end;