Eureka! lo logre!
lo comparto para el ke le pueda ser util en el futuro. Ya entendi la recursividad! La habia usado hace años en algunos metodos numericos pero nunca para un proceso de soft.
aki va:
Código Delphi
[-]
procedure Rastrear (Dir:string);
var
SR:TSearchRec;
mascara: string;
begin
mascara:='*.*';
if FindFirst(dir + mascara, faAnyFile, SR) = 0 then begin
repeat
if ( (SR.Attr and fadirectory) = fadirectory) then
begin
if (SR.Name <> '.')and (SR.Name <> '..') then
Rastrear( Dir + SR.Name+'\' );
end
else
begin
form1.Memo1.Lines.Add (SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear(edit1.Text);
end;