Hilfe:
Wird AmtTransferred nicht angegeben, tritt ein E/A-Fehler auf, wenn die Anzahl der gelesenen Datenblöcke nicht mit Count identisch ist. Wenn die Compiler-Direktive $I+ aktiv ist, lösen Fehler eine EInOutError-Exception aus.
und was sagt uns das (kein Plan *g*)
Edit:
procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);