Erase a directory and their files

Procedure TForm1.Button1Click ( Sender : TObject ) ;

var

DirInfo : TSearchRec ;

r : Integer ;

Begin

   r := FindFirst ( 'C:\Download\Test\*.*' , FaAnyfile , DirInfo ) ;

   While r = 0 Do

   Begin

      If ( ( DirInfo.Attr And FaDirectory <> FaDirectory ) And

         ( DirInfo.Attr And FaVolumeId <> FaVolumeID ) ) Then

         If DeleteFile ( pChar ( 'C:\Download\test\' + DirInfo.Name ) )

            = false Then

            ShowMessage ( 'Unable to delete : C:\Download\test\' +

               DirInfo.Name ) ;

      r := FindNext ( DirInfo ) ;

   End ;

   SysUtils.FindClose ( DirInfo ) ;

   If RemoveDirectory ( 'C:\Download\Test' ) = false Then

      ShowMessage ( 'Unable to delete dirctory : C:\Download\test' ) ;

End ;