Чтение любого файла со второго бита (третьего и т.д.)?

var
  myWord, myWord1, myWord2, myWord3, myWord4 : Word;
  myFile : File of Word;
 
begin
  // Попытка открыть бинарный файл Test.cus binary в режиме только для записи
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);
 
  // Запись нескольких строк Word данных в файл
  myWord1 := 12;
  myWord2 := 34;
  myWord3 := 56;
  myWord4 := 78;
  Write(myFile, myWord1, myWord2, myWord3, myWord4);
 
  // Закрытие файла
  CloseFile(myFile);
 
  // Повторное открытие файла только для чтения
  FileMode := fmOpenRead;
  Reset(myFile);
 
  // Перемещение в начало 3-ей записи
  Seek(myFile, 2);    // Записи начинаются с 0
 
  // Показ этой записи
  Read(myFile, myWord);
  ShowMessage('Record 3 = '+IntToStr(myWord));
 
  // Закрытие файла
  CloseFile(myFile);
end;

var
  myFile    : File;
  byteArray : array[1..8] of byte;
  oneByte   : byte;
  i, count  : Integer;
 
begin
  // Попытка открыть файл Test.byt для записи
  AssignFile(myFile, 'Test.byt');
  ReWrite(myFile, 4);   // Определение отдельной 'записи' как 4 байта
 
  // Заполнение массив данными
  for i := 1 to 8 do
    byteArray[i] := i;
 
  // Запись данных массива в файл
  BlockWrite(myFile, byteArray, 2);   // Запись 2 'записи' из 4 байт
 
  //Закрытие файла
  CloseFile(myFile);
 
  // Повторное открытие файла для чтения
  FileMode := fmOpenRead;
  Reset(myFile, 1);   // Теперь мы определяем одну запись как 1 байт
 
  // Показ содержимого файла
  // Чтение первых 6 байт. 'count' установлен в
  // текущий считанный номер
  ShowMessage('Чтение первого набора байтов :');
  BlockRead(myFile, byteArray, 6, count);
 
  // Показ счтанных значений байта
  for i := 1 to count do
    ShowMessage(IntToStr(byteArray[i]));
 
  // Теперь читаем один байт за один раз и так до конца файла
  ShowMessage('Чтение остающихся байтов :');
  while not Eof(myFile) do
  begin
    BlockRead(myFile, oneByte, 1);   // Чтение одного байта за один раз
    ShowMessage(IntToStr(oneByte));
  end;
 
  // Закрытие файла в последний раз
  CloseFile(myFile);
end;

var
  Data, Mask, i : Byte;
  B : array[0..7] of Byte;
begin
...
  //B[0] - старший бит, B[7] - младший бит.
  Mask := 1; //00000001(bin).
  for i := High(B) downto 1 do begin
    B[i] := Data and Mask;
    Mask := Mask shl 1;
  end;
...
end;