copia de arquivos usando *.* URGENTE.......

Estou usando a rotina abaixo ....

i:=findfirst(´c:\origem\*.*´, faAnyFile,SR);
while i=0 do
begin
if (SR.ATTr and faDirectory) <> faDirectory then
begin
Origem:=´C:\Origem\´+SR.Name;
Destino:=´C:\Destino\´+sr.name;
if not copyfile (pchar(origem), pchar(destino),false) then
showmessage(´Erro ao copiar ´+ Origem+´ para ´+Destino);
end;
p:=findnext(sr);
end;
end;

Quando copio do diretorio onde estão os bancos de dados para outro diretorio funciona normal, mas não ocorre o mesmo se fizer o caminho inverso....

Alguem pode me ajudar ....