Copiar arquivos de uma pasta para outra em Delphi

Boa tarde amigos.

Tenho a seguinte situação.
Pasta Origem - Local onde deverei pegar os arquivos a serem copiados
Pasta Destino - Local onde os arquivos copiados serão colados.

Tenho a seguinte situação.
uma procedure que pega os caminhos e faz a cópia.

Veja:
procedure TForm1.btCopiarClick(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
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), true) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
end;

O que quero fazer é colocar o caminho da origem e do destino em um Edit, fazer com que o Delphi pegue do Edit e copie, porém após a primeira cópia da erro.
vejam as alterações?

procedure TForm1.btCopiarClick(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
Origem := edtPastaArquivoOriginal.text;
Destino := edtPastaDestino.text;
I := FindFirst(Origem + '\*.*', faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := Origem + '\' + SR.Name;
Destino := Destino + '\' + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
end;

Alguma solução.