В защиту Not-Invented-Here-синдрома

(По мотивам обсуждения: hashcrc, FarMD5, MD5Arc)

procedure ProcessFile(fileName: string);
var
  f: file;
  buffer: array [0..32767] of Byte;
  bytesRead: Longint;
begin
  AssignFile(f, fileName);
  ResetFile(f, 1);
  try
    while not Eof(f) do
    begin
      BlockRead(f, buffer, SizeOf(buffer), bytesRead);
      // Do something with buffer
    end;
  finally
    CloseFile(f);
  end;
end;

( Что не так на этой картинке? )