function 
TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
var
  
RecCount: LongInt;
  Bookmark: TBookmark;
  Res: DBIResult;
begin
  
Result := False;
  if 
CheckDatabase then
    begin
      if 
RecNo < 1 then
        
RecNo := 1;
      RecCount := GetRecordCount;
      if 
RecNo > RecCount then
        
RecNo := RecCount;
      Res := DbiSetToRecordNo(FDataLink.DataSource.DataSet.Handle,
        RecNo);
      if 
Res = 0 then
        begin
          
Bookmark := StrAlloc(GetBookmarkSize);
          DbiGetBookmark(FDataLink.DataSource.DataSet.Handle,
            Bookmark);
          FDataLink.DataSource.DataSet.GoToBookmark(Bookmark);
          FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
          Result := True;
        end
      else
        
Check(Res);
    end
;
end
;