Copia Arquivos e diretorios

Bom dia amigos,

Estou com um problema em uma rotina de backup que estou criando e gostaria de uma ajuda.

Não estou conseguindo copiar nada !

O que fiz foi :

var origem, destino : string;origen := Modulo.cdsBackupDESTINO.Text;destino := Modulo.cdsBackupORIGEM.Text;CopyFile(PChar(origen),PChar(destino), True);

Agradeço a ajuda,

Pablo Aguillar