Номер текущей битовой позиции в файле

32-х 
16-тиfunction NomTekBi: longint;

Функция возвращает номер первого бита текущей битовой строки относительно начала обрабатываемого файла. Может применяться к любым типам файлов. При обращении к неоткрытому файлу возвращает значение 0.

Внимание !  Функция существует только в 16-ти разрядной версии.

Пример вызова функции приведен в таблице:
32-х 
16-ти Var BitStr: PBitFile; Razmer : longint; {Объявление переменной}


Razmer := BitStr^.NomTekBi; {Определение текущей позиции в файле}