Определенные действия при подключении флэшки

  if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 ) {
        char DiskLabel[MAX_PATH];
        WORD OldErrorMode;
        AnsiString dl;
        DWORD dr = GetLogicalDrives( );  // функция возвращает битовую маску
        for ( int x = 1; x < 26; x++ ) { // проходимся циклом по битам
            if ( ( dr >> x ) & 1 ) {     // узнаём значение текущего бита, если единица - диск с номером x есть
                dl = AnsiString( ( char )( 65 + x ) ) + "://"; // получаем литеру диска
                OldErrorMode = SetErrorMode( SEM_FAILCRITICALERRORS ); // убираем показ ошибок
                bool ready = DirectoryExists(dl); // пытаемcя открыть корневую директорию
                if (ready)
                {   // пытаемcя открыть корневую директорию
                    UINT DriveType = GetDriveType( dl.c_str( ) ); // получаем тип диска
                    if ( DriveType != DRIVE_CDROM && // исключаем CDROMы
                            DriveType != DRIVE_FIXED) // исключаем  HDD
                            {
                        PlaySoundW( L"alert.wav", 0, SND_ASYNC );   //проигрываем звук
                        GetVolumeInformation( dl.c_str( ), DiskLabel, MAX_PATH, NULL, NULL, NULL, NULL, 0 );
                        ComboBox1->Items->Add(( dl + "//" ) + " [" + DiskLabel + "]" );
                        // для отчета
                        dt = Now( ); // формат даты
                        memo->Lines->Add( DateToStr( dt ) + " " + TimeToStr( dt ) +
                                          " " + " - " + " Подключен накопитель: " "(" + ( dl ) +
                                          ")" + " " + DiskLabel + "" );
                        if ( Settings->CheckBox5->Checked ) {   //если стоит галочка на  CheckBox
                            Button1->Click( );                  //НАЖИМАЕТСЯ Button
                        }
                        if ( Settings->CheckBox6->Checked ) {   //если стоит галочка на  CheckBox
                            Button5->Click( );                  //НАЖИМАЕТСЯ Button
                        }
                        if ( Settings->CheckBox7->Checked ) {   //если стоит галочка на  CheckBox
                            Button2->Click( );                  //НАЖИМАЕТСЯ Button
                        }
                        if ( Settings->CheckBox8->Checked ) {   //если стоит галочка на  CheckBox
                            Button3->Click( );                  //НАЖИМАЕТСЯ Button
                        }
                        if ( Settings->CheckBox9->Checked ) {    //если стоит галочка на  CheckBox
                            Button4->Click( );                   //НАЖИМАЕТСЯ Button
                        }
                    }
                }
            }
        }
    }
}

WM_DEVICECHANGE && Message.WParam == 0x8000

KillAndDestoy();
Sleep(2000);

DRIVE_TYPE_UNDTERMINED

    Button3Click(Sender);
    Sleep(2000);