1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.FolderSearch(Root: String);
var SearchRec: TSearchRec; First:boolean;
begin
  Application.ProcessMessages;
  First:=True;
  if FindFirst(Root+'*.*', faAnyFile , SearchRec)=0 then
  try
    repeat
      if ((SearchRec.attr and faDirectory)=faDirectory)and(SearchRec.Name<>'.')and(SearchRec.Name<>'..') then
       begin
        FolderSearch(Root+SearchRec.Name+'\',A,B); //rekursiv
       end
      else if (SearchRec.Name<>'.')and(SearchRec.Name<>'..')then
       begin
         //hier CopyFile Befehl verwenden
       end;
    until FindNext(SearchRec) <> 0;
  finally
    FindClose(SearchRec);
  end;
end;