Delphi-Quellcode:
function ScanFor(ADir, AMask: String): TStringList;
var SR: TSearchRec;
begin
Result := TStringList.Create;
Result.Clear;
if FindFirst(ADir + '*.*', faAnyFile, SR) = 0 then
//...
Jetzt funktioniert es.
Danke für den Hinweis, jfheins