Функция FileLen возвращает число записей в файле данных.
              Она объявляется следующим образом:
              function FileLen(var dfile: DataFile): integer;
         Помните, что все файлы Turbo Access используют первую запись для
         внутренних целей так,  что число записей, действительно содержа-
         щих ваши данные, меньше на 1 возвращаемого данной функцией.