Блокнотик Centaur’а

Да, а правильный способ обработать весь файл, конечно, —

while True do
begin
  BlockRead(f, buffer, SizeOf(buffer), bytesRead);
if bytesRead = 0 then Break;
  // Do something with buffer
end;