複製資料夾

procedure TForm1.Button1Click(Sender: TObject);
const
  SourceDir = 'C:\Temp\Folder1';
  DestDir = 'C:\Temp\Folder2';
begin
  TDirectory.Copy(SourceDir, DestDir);
end;