Dateien ohne Inhalt (leere Dateien) finden

[Aphton]

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...)!