function TBDEDirect.CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Boolean;
var
 Res: DBIResult;
 CompareRes: Word;
begin
 Result := False;
 if CheckDatabase then
 begin
  Res := DbiCompareBookmarks(FDataLink.DataSource.DataSet.Handle,
  Bookmark1, Bookmark2, CompareRes);
  if Res = 0 then
  if CompareRes = 0 then
  Result := True
  else
  else
  Check(Res);
 end;
end;