Copiar arquivos de banco de dados do mysql entre pastas

Tenho que copiar os arquivos referente as tabelas de um banco de dados MySQL. Estou o usando o seguinte código:

OBS. Criei a variável Arquivo do tipo TSearchRec !

if FindFirst(´c:\mysql\data\SEC_´ + SemestreAtual + ´_´ + AnoAtual + ´\*.*´, 0, Arquivo) = 0 then
begin
repeat
CopyFile(pChar(´c:\mysql\data\SEC_´ + SemestreAtual + ´_´ + AnoAtual + ´\´ + Arquivo.Name),pChar(´c:\mysql\data\SEC_´ + Semestre + ´_´ + Ano + ´\´ + Arquivo.Name), True);
until FindNext(Arquivo) 0;
FindClose(Arquivo);
end;

Ele até copia os arquivos corretamente,mas logo após ele me retorna uma mensagem de exception que eu nao consigo manipular dentro do sistema, gostaria de um código que copiasse arquivos de um diretório para o outro sem ocorrer nenhum problema...Obrigado.