Alle Dateien auflisten funktioniert nur manchmal

[Christian Seehase]

Moin Robert,

das hier
if Pfad[Length(Pfad)] <> '\' ist nicht ganz ungefährlich.
Wenn ein Leerstring übergeben wird, gibt es eine Exception.
Du könntest es mal mit IncludeTrailingBackslash versuchen.