[Neftali [Germán.Estévez]]

Hola.
No entiendo muy bien lo que estás haciendo con el procedimiento.

Justo está hecho en un procedimiento para que puedas utilizarlo donde quieras y reaprovecharlo. Si modificas el procedimiento y le añades cosas como estas ya no será "reaprovechable":

Código Delphi [-]
    Form10.Etick.Text:=IntToStr(FilesList.Count);
    nombrearchivo:=SR.Name;
    ShowMessage(nombrearchivo);
    ClientModule1.cdsticketpendiente.LoadFromFile(nombrearchivo);
    nombrecopia:=ExtractFileName(Application.ExeName) + 'ticketscopia\' + nombrearchivo;
    ...

Utiliza el procedimiento para buscar todos los ficheros que hay en el directorio que cumplen unas condiciones. Una vez realizada la búsqueda, utiliza un bucle para hacer el trabajo que necesites... (y coloca tu código ahí)

Código Delphi [-]
  // Crear la lista que vamos a utilizar
  TS := TStringList.Create();
  // Buscar ficheros en disco.
  FindFiles(pathDeBusqueda, '*.xml', False, TS); 
  // Para cada fichero encontrado, realizamos el trabajo necesario...
  for i := 0 to (TS.Count - 1) do begin
    // Extraer nombre del fichero. en TS[i] está el path completo  
    fName := ExtractFileName(TS[i]);
    ....
    
    AQUI HAZ LO QUE QUIERAS CON EL FICHERO....
    
    
  end;
  // liberar la lista
  TS.Free;