Как скопировать папку со всем ее содержимым

[Arsgun]

Доброго времени суток! Подскажите пожалуйста как скопировать папку со всем ее содержимым! Заранее спасибо!!

[BanDit]

var
Form1: TForm1;
x, y:string;
iconindex:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
sskinmanager1.SkinDirectory:=Extrac tFileDir(Application.ExeName);
sDirectoryEdit2.Text:=extractfilepa th(Application.ExeName);


procedure TForm1.sButton1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: array [0..128] of Char;
begin
x:=sdirectoryedit1.Text;
y:=sDirectoryEdit2.Text;
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, x );
StrPCopy( tobuf, y+'NEW Folder\' );
with OpStruc do
begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= nil;
end;
ShFileOperation( OpStruc );
end;

[BanDit]

var
Form1: TForm1;
x, y:string;
iconindex:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
sskinmanager1.SkinDirectory:=Extrac tFileDir(Application.ExeName);
sDirectoryEdit2.Text:=extractfilepa th(Application.ExeName);

procedure TForm1.sButton1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: array [0..128] of Char;
begin
x:=sdirectoryedit1.Text;
y:=sDirectoryEdit2.Text;
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, x );
StrPCopy( tobuf, y+'NEW FOLDER\' );
with OpStruc do
begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= nil;
end;
ShFileOperation( OpStruc );
end;