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;