Fórum Renomear arquivos não dá certo !! #339979

Bom dia a todos da comunidade.
´
Já pesquisei e infelizmente não achei nada que pudesse me ajudar.
Preciso renomear alguns arquivos pelo conteúdo de um campo na tabela de catalogo, pois o arquivo que é música esta com número e não com nome..
Ex.:

01015.mp3
10106.mp3
etc

Acontece que esta rotina abaixo, não esta funcionando como deveria, o engraçado que alguns arquivos foram renomeados e outros não .
Veja a rotina.:

While not Dm.AdoDataSet1.Eof do
Begin
CodName := Dm.AdoDataSet1.FieldByName(´Cod´).AsInteger;
Desc := Dm.AdoDataSet1.FieldByName(´Descr´).AsString;
Artista := Dm.AdoDataSet1.FieldByName(´Inter´).AsString;
// Pega o arquivo ex: 21102 e montra a string 21102.mp3
NomeMusica := Trim(IntToStr(CodName) + ´.MP3´);
if FileExists(NomeMusica) then
Begin
BackupName := Dm.AdoDataSet1.FieldByName(´Descr´).AsString;
RenameFile(Trim(NomeMusica), BackupName + ´ - ´ + Artista + ´.Mp3´);
End;
Dm.AdoDataSet1.Next;
End;

Já verifiquei os atributos dos arquivos e nada, Renomear pelo Windows (F2) vai sem problemas.
Estou sem rumo para achar este pequeno problema e a questão é que faltam 1200 arquivos para serem renomeados.
Também verifiquei se o códigos existem na tabela, descartando a possibilidade de não encontrar o arquivo.

Agradeço a todos e uma boa páscoa.