Структура для хранения текущего положение указателя
type TBitStorePosition = record block: integer; byte: integer; bit: integer; LenCurBlock: integer; end;