probleme verzeichnisse zu suchen

[1ermehr]

Kein wunder dass was ausgelassen wird wenn man alles doppelt macht, machmal
wünsche ich mir ich könnte lesen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
 fts: TSearchRec; 
 fcount, dcount: integer; 
begin 
 fcount := 0; 
 dcount := 0; 

 findfirst(DirectoryListBox1.Directory+'\*.*',faDirectory,fts); 
 listbox1.Items.Add(fts.Name); 

 if fts.Attr = faDirectory then inc(dcount,1) 
                           else inc(fcount,1); 

 repeat
  findnext(fts); // <--- ganz böser fehler 
  listbox1.Items.Add(fts.Name); 

  if fts.Attr = faDirectory then inc(dcount,1) 
                            else inc(fcount,1); 
 until findnext(fts) <> 0; 

 FindClose(fts); 
 label1.Caption := inttostr(fcount+dcount)+' items. ' + inttostr(fcount)+ 
 ' files, ' + inttostr(dcount)+ ' directories.'; 
end;

Trotzdem dankeschön