var
  myFile    : File;
  byteArray : array[1..8] of byte;
  oneByte   : byte;
  i, count  : Integer;

begin
  // Try to open the Test.byt file для чтения
  AssignFile(myFile, 'Test.byt');
  ReWrite(myFile, 4);   // Определение простой 'записи' из 4 байт

  // Заполните массива данных
  for i := 1 to 8 do
    byteArray[i] := i;

  // Запись массива данных в файл
  BlockWrite(myFile, byteArray, 2);   // Write 2 'records' of 4 bytes

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла для чтения
  Reset(myFile, 1);   // Теперь мы определяем одну запись как 1 байт

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    BlockRead(myFile, oneByte, 1);   // Теперь мы определяем одну запись как 1 байт
    ShowMessage(IntToStr(oneByte));
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;