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;