Apagando pastas com tudo dentro com Delphi

Para apagar uma pasta com todas as suas subpastas e arquivos, utilize a rotina abaixo

procedure ProcuraEApaga (Arq, Dir : String); 

var 

  F : TSearchRec; 

  S : String; 

begin 

  if Dir [length (Dir)] <> '\' then 

    Dir := Dir + '\'; 

  S := Dir + '*.*'; 

  if FindFirst (S, faAnyFile, F) = 0 then 

    if (F.Attr = faDirectory) then 

      begin 

        if (F.Name <> '.') and (F.Name <> '..') then 

          Procura (Arq, Dir + F.Name) 

      end 

    else 

      if (F.Name = Arq) then 

        DeleteFile (Dir + Arq); 

end;