C++ Builder XE扫描读取文件夹内所有子文件夹路径

//读取文件夹中所有子文件夹
  String Dir=RzButtonEdit1->EditText;
  TSearchRec   sr;
  TStringList *Flist =new TStringList;
  Flist->Clear();
  if(FindFirst(Dir+"\*.*",faDirectory,sr)   ==   0)
  {
      //Oldlist = RzListView1->Items->Count;
      do
      {
         if( !sr.Name.Pos(".")  )  //sr.Name!="." && sr.Name!=".."
         {
            Flist->Append(Dir+"\"+sr.Name);
         }
      } while(FindNext(sr) == 0);
      FindClose(sr);
  }