[Anel Hernandez]

Hola,

estoy intentando listar en un memo todos los archivos de un directorio y sus subdirectorios internos usando los trucos con recursividad del foro y no lo logro. Pudieran aclarar cual es mi error?

Código Delphi [-]
var
  SR: TSearchRec;
  dir:string;
  mascara: string;
begin
 dir := edit1.Text;
 mascara:='*.*';
 if FindFirst(edit1.Text + mascara, faAnyFile, SR) = 0 then
  begin
   repeat
    memo1.Lines.Add(SR.Name);
    if ((SR.Attr and faDirectory) = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
     Dir := Dir + SR.Name+'\';
    until FindNext(SR) <> 0;
    FindClose(SR);
 end;
end;

gracias