* TBufDataset.Recordsize now includes the size of the bookmark-information

git-svn-id: trunk@5777 -

fcl/db/bufdataset.pp

@@ -922,7 +922,7 @@ end;
 function TBufDataset.GetRecordSize : Word;
 
 begin
-  result := FRecordSize;
+  result := FRecordSize + sizeof(TBufBookmark);
 end;
 
 function TBufDataset.GetChangeCount: integer;