[*Caro*]

Hola Paulao, si quieres renombrar el nombre de tus archivos, ademas de utilizar la función StringReplace debes utilizar la función RenameFile.

Código Delphi [-]
    if Active and Recursive and (FindFirst(Mask, faDirectory, SR) = 0) then
      try
        repeat
          if (SR.Name <> '.') and (SR.Name <> '..') then
          begin
            PathFound(Dir + SR.Name);
            if ExtractFileName(SR.Name) <> '' then
              begin
                Actual := Dir+SR.Name;
                Nuevo := Dir+TrocaNome(SR.Name);
                if not RenameFile(Actual, Nuevo) then
                 showmessage('el archivo ya existe, no se puede renombrar');                                      
              end;
          end;
        until (FindNext(SR) <> 0) or (not Active);
      finally
        FindClose(SR);
      end;

Saluditos