Hallo,
das Loch muss nicht von Dir sein.
Ist es auch noch vorhanden, wenn Du mal diesen Bereich auskommentierst:
Delphi-Quellcode:
if (SameText(loc_dummy, loc_sr.Name)) then begin
Writeln('Found file: ' + loc_sr.Name);
end;
Ist es auch noch vorhanden, wenn Du die Suche mal komplett auskommentierst?