Copiar e substituir pasta com barra de progresso

Olá,

Estou usando o codigo abaixo para copiar o conteudo de uma pasta e suas subpastas de um local para outro da maquina, porem qdo ja existe alguma pasta no destino aparece aquela mensagem CONFIRMAÇÃO DE SUBSTITUIÇÃO DE PASTAS para que o usuario escolha se quer ou não sobrescrever as pastas. Tem algum modo de copiar direto sem aparecer essa mensagem?

Código:
origem:= C:\Contas ;
destino:= C:\BCK ;

If (origem <> ) and ( destino <> ) then
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(origem);
pTo := PChar(destino);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);

end;


Grato

Luiz Carlos