Qué parámetro falta en este procedure
 

Chicos,
Esta consulta es fácil para ustedes, pero como soy algo nueva en Delphi, no entiendo : /

Quiero saber qué sigue porqué me tira error la acción de esta procedure y me selecciona
lo que esta en negrito, o qué debe ir llamar la procedure "BuscarArchivos"

BuscarArchivos('C:\', '*.*',true, FilesList);


El procedure original es este.

procedure BuscarArchivos(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList);
.
..
... etc

Muchas gracias

Hola SaraTorres, faltan algunos datos para poder identificar el problema. No podrias copiar y pegar el procedimiento en donde invocas esta linea:

Código Delphi [-]
BuscarArchivos('C:\', '*.*',true, FilesList);

Aparentemente no te falta ningun parametro, pero lo que le estas pasando como FileList debe ser un objeto de clase TStringList

Este es el código original que encontré:
Lo que necesito es saber cómo llamar esta procedure. Muchas gracias

Código Delphi [-]
procedure FindFiles(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList);
  const
    MASK_ALL_FILES = '*.*';
    CHAR_POINT = '.';
  var
    SR: TSearchRec;
    DirList: TStringList;
    IsFound: Boolean;
    i: integer;
  begin
    if (StartDir[length(StartDir)] <> '\') then begin
      StartDir := StartDir + '\';
    end;
 
    IsFound := FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;

    while IsFound do  begin
      FilesList.Add(StartDir + SR.Name);
      IsFound := FindNext(SR) = 0;
    end;
 
    FindClose(SR);
 
    if (recursively) then begin
      DirList := TStringList.Create;
      try
        IsFound := FindFirst(StartDir + MASK_ALL_FILES, faAnyFile, SR) = 0;
        while IsFound do
        begin
          if ((SR.Attr and faDirectory) <> 0) and
            (SR.Name[1] <> CHAR_POINT) then
            DirList.Add(StartDir + SR.Name);
          IsFound := FindNext(SR) = 0;
        end;
        FindClose(SR);
 
        for i := 0 to DirList.Count - 1 do
          FindFiles(DirList[i], FileMask, recursively, FilesList);
      finally
        DirList.Free;
      end;
    end;
  end;

Hola.
En el mensaje #5 de este hilo: Aplicacion de Busqueda Recursiva de Archivos en Disco, tenes un ejemplo de como llamar a esa función. ( TForm1.BuscarClik )

Saludos :)

Hola Sara.
Si el error te da en esa variable, justo nos falta saber cómo has definido y creado (dado que es un objeto) esa variable.
También es bueno, para próximas consultas, que si te da un error, pongas cual es.