findfirst findnext 递归查找指定目录下所有子目录下所有文件，为什么总是死机？

findfirst findnext 递归查找指定目录下所有子目录下所有文件，为什么总是死机？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061110231617254.html
procedure   TForm1.FindAll(const   Path:   String);  
  var  
      sr:TSearchRec;  
      fr:Integer;  
  begin  
  fr:=FindFirst(Path,faAnyFile,sr);  
  while   fr=0   do  
      begin  
      if   (sr.Attr=faDirectory)and(sr.Name<>'.')and(sr.Name<>'..')   then  
          FindAll(sr.Name)      
      else  
          begin  
            showmessage(sr.name);  
          end;  
      FindNext(sr);  
      end;  
  FindClose(sr);  
  end;  
   
  我是从网上找到的这个函数，可是调用时总是不停时showmessage，一直停不下来，这是为什么呢？万分感谢！

FindNext(sr);  
  改为：  
  fr:=FindNext(sr);  
   
   
  //别人为你消耗时间和生命  
  //你却什么都不付出，很不厚道。  
  //记得下次改正。