code:

---

function RecCopy(MyPath, DestPath);
begin
  while MyFile=GetNextFile do begin
    if (MyFile is File) then Copy(MyFile, DestPath+MyFile)
    else RecCopy(MyFile, DestPath);
  end;
end;

---