Renombrar archivos siguiendo ciertas reglas

[TOPX]

Bueno, además de que en la ayuda de Delphi y en este Foro hay muchos ejemplos, es tan fácil como:

Código Delphi [-]
var
  MiLista: TStringList;
begin
  MiLista: TStringList.Create;
  try
    MiLista.LoadFromFile('miarchivo.rec');
    {etc ...}
  finally
    MiLista.Free;
  end;
end;

Y en el momento de extraer los números para renombrar, se puede guiar por este hilo (activo incluso el día de hoy)

Y ojalá que fácilmente haya visto, analizado y entendido el truco referenciado, para renombrar los archivos.