请问如何获得一个目录下所有子目录的名称? ( 积分: 50 )

如题

procedure SearchAllFile(DirName: String; Files: TStrings);
var
fpath: String;
sr: TsearchRec;
begin
fpath:=DirName+'/*.*';
if FindFirst(fpath,faAnyFile, sr)=0 then
repeat
if (sr.Name <> '.')and(sr.Name <> '..') then
begin
if (sr.Attr and faDirectory)=faDirectory then begin
SearchAllFile(DirName+'/'+sr.Name, Files);
Files.Add(sr.Name);
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;

怎么用呀

调用方法
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStrings;
begin
sl := TStringList.Create;
try
SearchAllFile('c:/Documents and Settings',sl);
Memo1.Lines.Assign(sl);
finally
sl.Free;
end;
end;

接受答案了.