1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString; 
    Flags: FILEOP_FLAGS): Integer; 
var 
  FromPath, ToPath: AnsiString; 
  SHFileOpStruct: TSHFileOpStruct; 
begin 
  FromPath := aFrom + #0#0; 
  ToPath := aTo + #0#0; 
  with SHFileOpStruct do 
  begin 
    Wnd := 0; 
    wFunc := aOperation; 
    pFrom := PAnsiChar(FromPath); 
    if ToPath <> '' then 
    begin 
      pTo := PAnsiChar(ToPath) 
    end else begin // target available 
      pTo := nil; 
    end; // target not available 
    fFlags := Flags; 
  end; // structure 
  Result := SHFileOperationA(SHFileOpStruct); 
end;
procedure TForm1.b_startClick(Sender: TObject);
var
von,zu: string;
begin
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) +  'config.ini') do//TIniFile wird geladen
   try
    von:=ReadString('Pfad','Von',''); //einlesen des von PFades
    zu:=ReadString('Pfad','Zu',''); //einlesen des zu PFades
    if von = '' then
    showmessage('Bitte geben Sie den Pfad des zu kopierenden Verzeichnis an');//ausgabe falss kein von Pfad geschrieben worden ist
    if zu = '' then
    showmessage('Bitte geben Sie den Pfad des Zielverzeichnis an');//ausgabe falss kein von Pfad geschrieben worden ist
   finally
    Free;//Ini wird freigegeben
  end;
    DoFileWork(von , zu);
end;					

1:

TDirectory.Copy('c:\test', 'c:\test1');