FindFirst findet nicht alles

[Cosamia]

Delphi-Quellcode:

 mask := IncludeTrailingBackSlash(ImportPath)+'*.*';
  if (findfirst(mask,faAnyFile,Search)=0) then
     repeat
      FileExt := UpperCase(ExtractFileExt(Search.Name));

      {Alle DAT Dateien abfangen}
      if fileext = '.DAT' then begin

      {Abfragen ob beim Import alles klar ging}
      if importdatfile(Search.Name) = 0 then begin
      ZipMaster1.FSpecArgs.Clear;
      ZipMaster1.FSpecArgs.Add(IncludeTrailingBackSlash(ImportPath)+Search.Name);
      ZipMaster1.Add;
      end;
      end;
      until(findNext(Search)<>0);
      {Zipfile schreiben}

  FindClose(Search);