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;