Copiando Pastas e Subpastas

uses 
SysUtils, 
FileCtrl, 
... 

procedure CopiarArquivos(De, Para: string); 
var 
Search: TSearchRec; 
Done: Boolean; 
begin 
IncludeTrailingBackslash(De); 
IncludeTrailingBackslash(Para); 

Done := FindFirst(De + ´*.*´, faAnyFile, Search) <> 0; 
while not Done do begin 

if (Search.Attr and faDirectory) = faDirectory then begin 

if (Search.Name <> ´.´) and (Search.Name <> ´..´) then begin 
ForceDirectories(Para + Search.Name); 

--> CopiarArquivos(De + Search.Name, Para + Search.Name); 
// erro acontece nesta linha

end; 
end 
else begin 

if not CopyFile(PChar(De + Search.Name), 
PChar(Para + Search.Name), True) then begin 
// trata erro na cópia 
end; 
end; 

Done := FindNext(Search) <> 0; 
end; 
end;