چه جور ميشه با دلفي دستور كپي يه پوشه رو داد

سلام عزيزان
مي خواستم بدونم چه جور ميشه با دلفي دستور كپي يه پوشه رو داد.

ممنون.

با سلام

واسه كپي قايل اينو دارم :

;(procedure CpyFile(pSor, pDes: string
var
; vSor, vDes: TFileStream
begin
;(vSor := TFileStream.Create(pSor, fmOpenRead
try
;(vDes := TFileStream.Create(pDes, fmOpenWrite or fmCreate
try
;(vDes.CopyFrom(vSor, vSor.Size
finally
;vDes.Free
;end
finally
;vSor.Free
;end
;end

يك راه ساده اينه

FileListBox1.Directory:='C:\';
for i:=1 to FileListbox1.Items.Count do
Begin
FileListBox1.ItemIndex:=i-1;
if FileListBox1.Items[i-1]<>ldbName then
if Not CopyFile(PChar(FileListBox1.FileName),PChar(S2+Fil eListBox1.Items[i-1]),False) then
Rv:=False;
Application.ProcessMessages;
End;