Genauere Fehlermeldung?
Verrate mir übrigens bitte wie groß die größte Datei ist
Edit1:
Delphi-Quellcode:
BlockRead(F, Buffer, BuffSize, Res); // #1
{...}
For I:=1 To Res Do // #2
Begin
If (Buffer[I] <> 0) Then // #2
{...}
Ich nehme an, dass dein Buffer nicht 0 indiziert ist (= 1 bis n); folglich darfst du bei #1 doch nicht Buffer so alleine angeben, wenn ich mich richtig erinnere.
Probier mal
Delphi-Quellcode:
//..
BlockRead(F, Buffer[1], BuffSize, Res)
Edit2 Anmerkung nebenbei:
Du kannst übrigens die Schleife schon vorzeitig verlassen und zwar genau dann, wenn diese if Bedingung zutrifft (verwende break dazu...)!