[poli-smen]

Сообщение от angvelem

ТС достаточно было изменить на

Код:

Reset(f, SizeOf(Integer)); 
t := 1;

Или же, как я предлагал, сделать переменную файла типизированной байтом:

Код:

var
  f: file of Byte; // Вместо нетипизированного f: file;

Тогда в "Reset" не нужно указывать размер блока. И читать в соответствии с размером переменной: SizeOf(имя_переменной) вместо SizeOf(real).
Хотя всё равно вариант с TFileStream мне нравится больше