Dein file ist kein file of byte (Blocksize = 1) sondern benutzt als default eine Blocksize von 128 wenn mich mein Vergessnis nicht täuscht. Also definiere inFile entweder als
inFile : File of Byte;
oder (besser) vergiss diese uralten File-Funktionen und verwende TFileStream.