delphi 遍历所有文件夹

遍历所有文件夹，并且保持到TStringList中

function getFileTree(const filepath:string):TStringlist;

var
  sr:TSearchrec;
  fileName:string;
  I:integer;
begin
   result:=TStringlist.Create;
   if Findfirst(filepath+'\*',faanyfile,sr)=0 then
   begin
     repeat
        if (sr.Name = '.') or (sr.Name='..') then continue;
        if sr.Attr = fadirectory then
        begin
          result.Add(sr.Name);
          result.AddStrings(getFileTree(filepath+'\'+sr.Name)) ;
        end

        else
          result.Add(sr.Name);
     until findnext(sr) <>0;
     findclose(sr);
   end;
end;