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
;