Problema con TStringList variable

[MaMu]

Resulta que, estoy haciendo una busqueda recursiva de archivos, pero... la extensión a buscar, la tomo de una selección de un CheckComboBox, donde figura un listado de extensiones que son tomadas de una base de datos access, lo que permite, agregar o quitar a gusto el tipo de extensión disponible a buscar, que luego se puede seleccionar o no desde el CheckComboBox. El procedimiento de búsqueda es el siguiente:

Código Delphi [-]
procedure BuscarArchivos(const directorio, mascara: string;
  atributos: Integer; var listado: TStrings);
  procedure Buscar(const subdirectorio: string);
  var
    regBusqueda: TSearchRec;
  begin
    if FindFirst(subdirectorio + mascara,atributos,regBusqueda) = 0 then
    begin
      try
        repeat
          Application.ProcessMessages;
          if (regBusqueda.Attr and faDirectory = 0)
            or (regBusqueda.Name <> '.')
              and (regBusqueda.Name <> '..') then
                listado.Add(subdirectorio + regBusqueda.Name);
        until FindNext(regBusqueda) <> 0;
      except
        FindClose(regBusqueda);
      end;
      FindClose(regBusqueda);
    end;
    if FindFirst(subdirectorio + '*', atributos
      or faDirectory, regBusqueda) = 0 then
    begin
      try
        repeat
          Application.ProcessMessages;
          if ((regBusqueda.Attr and faDirectory) <> 0)
            and (regBusqueda.Name <> '.')
              and (regBusqueda.Name <> '..') then
                Buscar(subdirectorio + regBusqueda.Name + '\');
        until FindNext(regBusqueda) <> 0;
      except
        FindClose(regBusqueda);
      end;
      FindClose(regBusqueda);
    end;
  end;
begin
  Buscar(IncludeTrailingPathDelimiter(directorio));
end;

Pero mi problema radica en que yo tengo que generar una StringList por cada extensión seleccionada, lo que puede ser una sola o cien!!!, yo con la lista lo que hago es tener el listado de archivos a copiar de una directorio a otro, pero no se como crear estas listas si no son fijas, son variables por el usuario segun su seleccion, la llamada al procedimiento es la siguiente:

Código Delphi [-]
var
  lista: TStrings;
  extension: string;
  i:integer;
begin
  lista := TStringList.Create;
//hay alguna extensión
 if OtroForm.CheckListBox1.Items.Count>0
 then begin 
  //me fijo que extensión está tildada
  for i:=0 to OtroForm.CheckListBox1.Items.Count-1 do
   begin
       if OtroForm.CheckListBox1.Checked[i]=True
         then  begin 
                extension:=OtroForm.CheckListBox1.ValueFromIndex[i];
                BuscarArchivos('C:\', '*.'+extension, faAnyFile, lista); 
                Justo acá tendría que iniciar la copia  de archivos 
antes que me cambie la lista por la siguiente extensión?
end
         else begin
             //abandono, hay extensiones, pero no se seleccionó ninguna
             Lista.Free;
             Exit;  
         end;
   end;
   lista.Free;     
  end
  else begin
      //abandono, no hay ninguna extensión
      lista.Free;
      Exit;
  end;     
end;

Esta bién la forma como lo hago? Mi pregunta esta marcada en rojo en el código de arriba. Acepto criticas y sugerencias o ideas alocadas como yo.

Saludos y gracias

[Mick]

No veo la necesidad de generar un stringlist por cada extension, porque no añades todos los archivos (tengan la extension que tengan), al mismo stringlist y despues los copias ?, o simplemente puedes vaciar el stringlist que ya tienes antes de empezar con la siguiente extension.

Otra opcion seria copiarlos a medida que se localizan, esta opcion seria mas escalable, porque si se encuentras cientos de miles de archivos, el stringlist ocuparia muchisimo en memoria, lo que podria ser un problema.

Saludos

[[Lepe]]

Ya que sabes trabajar con un TStringList, complica la cosa un poco más encadenándolos jejeje:

 Archivos (TstringList)
     |--------- *.txt ( Objeto asociado a este string: un TStringList)
     |             |------- Archivos encontrados 
     |             |------- Archivos encontrados 
     |             |------- Archivos encontrados 
     |
     |--------- *.jpg ( Objeto asociado a este string: un TStringList)
                   |------- Archivos encontrados 
                   |------- Archivos encontrados

Creas un TStringList que guarda la extensión que está buscando y el objeto asociado a ese elemento, es a su vez otro StringList.

Código Delphi [-]
Archivos.AddObject('*.txt', TStringList.Create);
TStringList(Archivos.Objects[0]).Add('c:\archivo1.txt');

Saludos

[MaMu]

Apa! gracias por las respuestas. Me gusta trabajar con StringList, y ya estoy implementando la forma que me sugirió Lepe, y el resultado es óptimo, tendria que probar que pasa si son 5000 archivos, pero para lo que es, mas de 50 archivos no hay nunca, y la velocidad es rápida, en cuanto a memoria, y bueno, en los huecos le mandare un buen Free cuando ya no la utilice.

Saludos y gracias again