[turminator]

Después de pensar un rato, creo que me conviene más usar TStringGrid ya que quizás en un futuro me sea útil meterle más de un valor por elemento.

Mi idea para este ejercicio era aprovechar la función que publicó David Esperalta acerca de como buscar archivos en un directorio y mostrarlos en una TString list

Código Delphi [-]
(*

  Busca y lista los archivos que cumplan con determinada
  máscara y que se encuentren en un determinado directorio
  y/o dentro de los subdirectorios del mismo.

  Parámetros:

  directorio: en el que buscar, por ejemplo: C:\
  mascara: de archivo, por ejemplo: *.txt
  atributos: de los archivos, por ejemplo: faAnyFile
  listado: donde guardar los posibles resultados (1)

  (1) Rutas completas de los archivos encontrados

*)

procedure BuscarArchivos(const directorio, mascara: string;
  atributos: Integer; var listado: TStrings);

  // Procedimiento anidado
  //
  procedure Buscar(const subdirectorio: string);
  var
    regBusqueda: TSearchRec;
  begin
    // Buscar en el directorio
    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;
    // Buscar en los subdirectorios
    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;
   //
  // Fin del procedimiento anidado:
 // Comienza "BuscarArchivos(...)"
//
begin
  Buscar(IncludeTrailingPathDelimiter(directorio));
end;

// Ejemplo de llamada a BuscarArchivos(...)
//
procedure TForm1.Button1Click(Sender: TObject);
var
  lista: TStrings;
begin
  lista := TStringList.Create;
  BuscarArchivos('C:\', '*.exe', faAnyFile, lista);
  ShowMessage(lista.Text);
  lista.Free;
end;

Creo que el error de esta aplicación se halla en que la función BuscarArchivos, está programada para que el resultado sea visualizado en una lista TStrings y no en una TStringGrid (la variable listado es un TString y no un tStringGrid). He probado en modificar levemente la función, pero me da error: creo que puede deberse a la siguiente sentencia:
listado.add(subdirectorio + regBusqueda.Name); ya que la propiedad .add es para el componente TString y no para el TStringGrid.

Donde me estoy equivocando?

Saludos!