如何得到文件夹下所有的子文件夹名称

 //得到文件夹下所有的子文件夹名称
procedure GetDirList(const pPath: String; out lstPath :TStringList);

var
  SearchRec:TSearchRec;
  i:Integer;
  TempPath:string;
begin
  TempPath:=pPath+'/*.*';
  i:=FindFirst(TempPath,faDirectory or faHidden or faReadOnly or faSysFile,SearchRec);
  while i=0 do
  begin
    if (SearchRec.Attr and faDirectory) = faDirectory then
    begin
      if (SearchRec.Name<>'.')and(SearchRec.Name<>'..') then begin
        lstPath.Add(pPath + '/' + SearchRec.Name);
        GetDirList(pPath + '/' + SearchRec.Name, lstPath);
        end;
    end;
    i:= FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;