Здравствуйте, Гай, Вы писали:

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

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

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

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

Ну тогда проверка результата не нужна

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