用delphi删除一文件夹下面的全部文件

DeleteFile('c:/temp/abc.txt')  
  //删除了ABC.TXT 文件 。我如何一下子把C：/temp目录下的文件自动一个接一个的删除。如何做循环判断？？？   

function   TMainForm.DeleteDirectory(NowPath:   string):   Boolean;   //删除整个目录  
  var  
      search:   TSearchRec;  
      ret:   integer;  
      key:   string;  
  begin  
      if   NowPath[Length(NowPath)]   <>   '/'   then  
          NowPath   :=   NowPath   +   '/';  
      key   :=   Nowpath   +   '*.*';  
      ret   :=   findFirst(key,   faanyfile,   search);  
      while   ret   =   0   do   begin  
          if   ((search.Attr   and   fadirectory)   =   faDirectory)  
              then   begin  
              if   (Search.Name   <>   '.')   and   (Search.name   <>   '..')   then  
                  DeleteDirectory(NowPath   +   Search.name);  
          end   else   begin  
              if   ((search.attr   and   fadirectory)   <>   fadirectory)   then   begin  
                  deletefile(NowPath   +   search.name);  
              end;  
          end;  
          ret   :=   FindNext(search);  
      end;  
      findClose(search);  
      removedir(NowPath);  
      result   :=   True;  
  end;