Función para copiar todo un directorio, archivos y

Tengo esta para Windows:
function CopyDirectory(const Directory, DestinationFolder: String; const GUI, SimpleGUI, CopyConfirmation, MkDirConfirmation, ErrorGUI: Boolean; var UserHasCancelled: Boolean): Boolean;
var
FOS : TSHFileOpStruct;
Flags: Word;
begin
Flags:= 0;
if GUI then if SimpleGUI then Flags:= Flags or FOF_SIMPLEPROGRESS
else Flags:= Flags or FOF_SILENT;
if not CopyConfirmation then Flags:= Flags or FOF_NOCONFIRMATION;
if not MkDirConfirmation then Flags:= Flags or FOF_NOCONFIRMMKDIR;
if not ErrorGUI then Flags:= Flags or FOF_NOERRORUI;
ZeroMemory(@FOS,SizeOf(FOS));
with FOS do begin
wFunc := FO_COPY;
fFlags := Flags;
pFrom := PChar(Directory + #0);
pTo := PChar(DestinationFolder)
end;
RESULT := (0 = ShFileOperation(FOS));
UserHasCancelled:= FOS.fAnyOperationsAborted;
end;
(*--
Directory:
Ruta del directorio que se desea copiar
DestinatioFolder:
Ruta del directorio en donde se desea poner la copia
GUI:
True = Usar despliegue de proceso de windows
False = No desplegar nada mientras se copia
SimpleGUI: (Sólo si GUI = true)
True = replegar la ventana de proceso de copiado
False = no mostrar proceso
CopyConfirmation:
True = confirmar antes de copiar
False = copiar sin confirmar
MkDirConfirmation:
True = Confirmar si es necesario crear el directorio destino
False = No confirmar la creación del directorio destino
ErrorGUI:
True = Mostrar ventana de mensaje de Windows si hay error
False = no mostrar mensajes en caso de error
UserCancelled:
True = la copia ha sido cancelada por el usuario
Retorna :
True = copia completada;
False = copia no completada;