Каким компонентом можно реализовать такое?

ShowMessage("ВОТ");

void __fastcall handle_disk(AnsiString disk) {
 
                   // ïûòàåìcÿ îòêðûòü êîðíåâóþ äèðåêòîðèþ
                   char DiskLabel[MAX_PATH];
                   TDateTime dt;
                    UINT DriveType = GetDriveType( disk.c_str( ) );  // ïîëó÷àåì òèï äèñêà
                    if ( (DriveType != DRIVE_CDROM &                // èñêëþ÷àåì CDROMû
                            DriveType != DRIVE_FIXED &             // èñêëþ÷àåì  HDD
                            DriveType != DRIVE_RAMDISK &          // èñêëþ÷àåì  Ram disk
                            DriveType != DRIVE_REMOTE &          //èñêëþ÷àåì FDD
                            DriveType != DRIVE_NO_ROOT_DIR &    //èñêëþ÷àåì ïîâðåæä¸ííûå äèñêè
                            DriveType != DRIVE_UNKNOWN))       //èñêëþ÷àåì íåèçâåñòíûå äèñêè
                    {
 
                        GetVolumeInformation( disk.c_str( ), DiskLabel, MAX_PATH, NULL, NULL, NULL, NULL, 0 );    //ïîëó÷àåì Èìÿ äèñêà
                        // äëÿ îò÷åòà
                        dt = Now( ); // ïîëíûé ôîðìàò äàòû
                        redtLog->Lines->Add(DateTimeToStr(dt) +
                                       "  | " + "Ïîäêëþ÷åí íàêîïèòåëü: " "(" + ( disk.SubString(1,2) ) +
                                        ")" + " " + DiskLabel + "" );     //óêàçûâàåì â Ëîã âðåìÿ,äàòó, èìÿ äèñêà.
                                        redtLog->Lines->SaveToFile("Log.txt");
                        }}

 WORD OldErrorMode;                   //îòêëþ÷àåì ïîêàç îøèáîê
        AnsiString disk;                    //ïåðåìåííàÿ disk òèïà  AnsiString
        DWORD dr = GetLogicalDrives( );    // ôóíêöèÿ âîçâðàùàåò áèòîâóþ ìàñêó
        for ( int x = 0; x < 26; x++ ) {
            if ( ( dr >> x ) & 1 ) {
                disk = AnsiString( ( char )( 65 + x ) ) + ":\\"; // ïîëó÷àåì ëèòåðó äèñêà
                OldErrorMode = SetErrorMode( SEM_FAILCRITICALERRORS ); // óáèðàåì ïîêàç îøèáîê
                bool ready = DirectoryExists(disk); // ïûòàåìcÿ îòêðûòü êîðíåâóþ äèðåêòîðèþ
                if (ready)
                               {
                                  handle_disk( disk );
 
                                   }
                else
                {

void __fastcall TMain::execute_t_wait_disk( TObject *Sender ) {
    timer_waits_for_explorer *t = dynamic_cast <timer_waits_for_explorer *> ( Sender );
    for ( size_t i = 0; i < t->disks.size( ); ++i ) {
        if ( t->disks[i].IsEmpty( ) ) {
            t->disks.erase( t->disks.begin( ) + i-- );
        }
        else if ( DirectoryExists( t->disks[i] ) ) {
            handle_disk( t->disks[i] );
            t->disks.erase( t->disks.begin( ) + i-- );
        }
        if ( t->disks.empty( ) ) {
            t->Enabled = false;
        }
    }
}
 
 
void __fastcall TMain::WMDeviceChange( TMessage &Message ) {
   TDateTime dt;
    if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 )
    {
 
        char DiskLabel[MAX_PATH];             //метка диска
        WORD OldErrorMode;                   //отключаем показ ошибок
        AnsiString disk;                    //переменная disk типа  AnsiString
        DWORD dr = GetLogicalDrives( );    // функция возвращает битовую маску
        timer_waits_for_explorer *t_wait_disk = NULL; // это желательно в классе формы, а в ее деструкторе освобождение
        for ( int x = 1; x < 26; x++ ) {  // проходимся циклом по битам
            if ( ( dr >> x ) & 1 ) {     // узнаём значение текущего бита, если единица - диск с номером x есть
                disk = AnsiString( ( char )( 65 + x ) ) + ":\\"; // получаем литеру диска
                OldErrorMode = SetErrorMode( SEM_FAILCRITICALERRORS ); // убираем показ ошибок
                bool ready = DirectoryExists(disk); // пытаемcя открыть корневую директорию
                if (ready)
                {
                       handle_disk( disk );
                    }
                         else
 
                {
                    if ( ! t_wait_disk ) {
 
                       t_wait_disk = new timer_waits_for_explorer( this );
                        t_wait_disk->OnTimer = &execute_t_wait_disk;
                    }
                    t_wait_disk->set_disk_and_start( disk );
                }
            }
        }
    }
    if( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8004 )  //ловим отключение
    {
        dt = Now( );       // полный формат даты
        Log->Lines->Add(Label24->Caption + "\\"+ Label21->Caption + " |  " +  DateTimeToStr(dt) + "  | " + " USB-накопитель отключен");  //в отчёт отключение
        Main->Caption=( "Flash Cleaner - "+ TimeToStr(dt) +
                        "  | " + " USB-накопитель отключен" );     //указываем в Лог время,дату, имя диска.
        Button1Click(0) ;               //обновление дерева
        Edit1->Clear();               //очищаем Edit1
    }
}
//---------------------------------------------------------------------------

private:    // User declarations
void virtual __fastcall WMDeviceChange(TMessage &Message);
public:     // User declarations
 #pragma option push -vi-
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_DEVICECHANGE,TMessage,WMDeviceChange);
END_MESSAGE_MAP(TForm);
#pragma option pop
class timer_waits_for_explorer
               : public TTimer {
                 public:
    std::vector <AnsiString> disks;
 
    __fastcall timer_waits_for_explorer( TComponent *owner )
                   : TTimer( owner ) {
        Interval = 500;
    };
    void __fastcall set_disk_and_start( AnsiString _disk ) {
        disks.push_back( _disk );
        Enabled = true;
    };
};
void __fastcall handle_disk(AnsiString disk) {
                             char DiskLabel[MAX_PATH];             //метка диска
                             TDateTime dt;
        WORD OldErrorMode;                   //отключаем показ ошибок
        DWORD dr = GetLogicalDrives( );    // функция возвращает битовую маску
                            UINT DriveType = GetDriveType( disk.c_str( ) );  // получаем тип диска
                    if ( (DriveType != DRIVE_CDROM &                // исключаем CDROMы
                            DriveType != DRIVE_FIXED &             // исключаем  HDD
                            DriveType != DRIVE_RAMDISK &          // исключаем  Ram disk
                            DriveType != DRIVE_REMOTE &          //исключаем FDD
                            DriveType != DRIVE_NO_ROOT_DIR &    //исключаем повреждённые диски
                            DriveType != DRIVE_UNKNOWN))       //исключаем неизвестные диски
                    {
                {
                        // для отчета
                        dt = Now( ); // полный формат даты
                        Log->Lines->Add(Label24->Caption + "\\"+ Label21->Caption + " |  " +  DateTimeToStr(dt) +
                                        "  | " + "Подключен накопитель: " "(" + ( disk.SubString(1,2) ) +
                                        ")" + " " + DiskLabel + "" );     //указываем в Лог время,дату, имя диска.
                        Caption=( "Flash Cleaner - "+ TimeToStr(dt) +
                                        "  | " + "Подключен накопитель: " "(" + ( disk.SubString(1,2) ) +
                                        ")" + " " + DiskLabel + "" );     //указываем в Лог время,дату, имя диска.
                        Edit1->Text=disk;           //результат в Edit1
                        if ( Settings->CheckBox5->Checked ) {   //если стоит галочка на  CheckBox
                            Button4->Click( );                  //выполняется Button
                        }
....................}}}}

if ( (DriveType != DRIVE_CDROM &                // исключаем CDROMы
                            DriveType != DRIVE_FIXED &             // исключаем  HDD
                            DriveType != DRIVE_RAMDISK &          // исключаем  Ram disk
                            DriveType != DRIVE_REMOTE &          //исключаем FDD
                            DriveType != DRIVE_NO_ROOT_DIR &    //исключаем повреждённые диски
                            DriveType != DRIVE_UNKNOWN))       //исключаем неизвестные диски

 if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 )
    {
        char DiskLabel[MAX_PATH];             //ìåòêà äèñêà
        AnsiString disk;                    //ïåðåìåííàÿ disk òèïà  AnsiString
        char drive_fat[30];                //ìàêñèìóì 30 ñèìâîëîâ
        DWORD dr = GetLogicalDrives( );   // ôóíêöèÿ âîçâðàùàåò áèòîâóþ ìàñêó
        WORD OldErrorMode;
        timer_waits_for_explorer *t_wait_disk = NULL; // ýòî æåëàòåëüíî â êëàññå ôîðìû, à â åå äåñòðóêòîðå îñâîáîæäåíèå
        for ( int x = 1; x < 26; x++ ) {  // ïðîõîäèìñÿ öèêëîì ïî áèòàì
            if ( ( dr >> x ) & 1 ) {     // óçíà¸ì çíà÷åíèå òåêóùåãî áèòà, åñëè åäèíèöà - äèñê ñ íîìåðîì x åñòü
                disk = AnsiString( ( char )( 65 + x ) ) + ":\\"; // ïîëó÷àåì ëèòåðó äèñêà
                OldErrorMode = SetErrorMode( SEM_FAILCRITICALERRORS ); // óáèðàåì ïîêàç îøèáîê
                WORD OldErrorMode;                   //îòêëþ÷àåì ïîêàç îøèáîê
                DWORD dr = GetLogicalDrives( );    // ôóíêöèÿ âîçâðàùàåò áèòîâóþ ìàñêó
                UINT DriveType = GetDriveType( disk.c_str( ) );  // ïîëó÷àåì òèï äèñêà
                if ((DriveType != DRIVE_CDROM &                // èñêëþ÷àåì CDROMû
                        DriveType != DRIVE_FIXED &             // èñêëþ÷àåì  HDD
                        DriveType != DRIVE_RAMDISK &          // èñêëþ÷àåì  Ram disk
                        DriveType != DRIVE_REMOTE &          //èñêëþ÷àåì FDD
                        DriveType != DRIVE_NO_ROOT_DIR &    //èñêëþ÷àåì ïîâðåæä¸ííûå äèñêè
                        DriveType != DRIVE_UNKNOWN))       //èñêëþ÷àåì íåèçâåñòíûå äèñêè
                    GetVolumeInformation( disk.c_str(),0,0,0,0,0,drive_fat,sizeof(drive_fat));
                    bool ready = DirectoryExists(disk); // ïûòàåìcÿ îòêðûòü êîðíåâóþ äèðåêòîðèþ
                if (ready && drive_fat!="?Wi")
                {
                    handle_disk( disk );
                    Log->Lines->Add("1");
                }
                else
                {
                    if ( ! t_wait_disk ) {
                        t_wait_disk = new timer_waits_for_explorer( this );
                        t_wait_disk->OnTimer = &execute_t_wait_disk;
                    }
                    t_wait_disk->set_disk_and_start( disk );
                }
            }
        }
    }

                if ((DriveType != DRIVE_CDROM &                // исключаем CDROMы
                        DriveType != DRIVE_FIXED &             // исключаем  HDD
                        DriveType != DRIVE_RAMDISK &          // исключаем  Ram disk
                        DriveType != DRIVE_REMOTE &          //исключаем FDD
                        DriveType != DRIVE_NO_ROOT_DIR &    //исключаем повреждённые диски
                        DriveType != DRIVE_UNKNOWN))       //исключаем неизвестные диски
                {       
                        bool ready = DirectoryExists(disk); // пытаемcя открыть корневую директорию
                        if (ready)
                        {
                            handle_disk( disk );
                            Log->Lines->Add("1");
                        }
                        else
                        {
                            if ( ! t_wait_disk ) {
                                t_wait_disk = new timer_waits_for_explorer( this );
                                t_wait_disk->OnTimer = &execute_t_wait_disk;
                            }
                            t_wait_disk->set_disk_and_start( disk );
                        }
                }

 bool ready

 timer_waits_for_explorer *t_wait_disk = NULL; // это желательно в классе формы, а в ее деструкторе освобождение

void __fastcall TMain::WMDeviceChange( TMessage &Message ) {
 
 if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 )
    {
 
            MyThread1 = new TMyThread(True );
            MyThread1->Resume();
           }
 
 if( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8004 )  //ловим отключение
    {
//2 поток
    }
 
}

__fastcall TMyThread::TMyThread(bool CreateSuspended)
    : TThread(CreateSuspended)
{
    FreeOnTerminate =true;
}
 
//---------------------------------------------------------------------------
 
void __fastcall TMyThread::execute_t_wait_disk( TObject *Sender ) {
    timer_waits_for_explorer *t = dynamic_cast <timer_waits_for_explorer *> ( Sender );
    for ( size_t i = 0; i < t->disks.size( ); ++i ) {
        if ( t->disks[i].IsEmpty( ) ) {
            t->disks.erase( t->disks.begin( ) + i-- );
        }
        else if ( DirectoryExists( t->disks[i] ) ) {
            handle_disk( t->disks[i] );
            t->disks.erase( t->disks.begin( ) + i-- );
        }
        if ( t->disks.empty( ) ) {
            t->Enabled = false;
        }
    }
}
 
void __fastcall TMyThread::Execute()
{
        timer_waits_for_explorer *t_wait_disk = NULL; // это желательно в классе формы, а в ее деструкторе освобождение
        char DiskLabel[MAX_PATH];             //метка диска
        AnsiString disk;                    //переменная disk типа  AnsiString
        WORD OldErrorMode;                   //отключаем показ ошибок
        DWORD dr = GetLogicalDrives( );    // функция возвращает битовую маску
        for ( int x = 1; x < 26; x++ ) {  // проходимся циклом по битам
            if ( ( dr >> x ) & 1 ) {     // узнаём значение текущего бита, если единица - диск с номером x есть
                disk = AnsiString( ( char )( 65 + x ) ) + ":\\"; // получаем литеру диска
                OldErrorMode = SetErrorMode( SEM_FAILCRITICALERRORS ); // убираем показ ошибок
                UINT DriveType = GetDriveType( disk.c_str( ) );  // получаем тип диска
                 if ((DriveType != DRIVE_CDROM &                // исключаем CDROMы
                        DriveType != DRIVE_FIXED &             // исключаем  HDD
                        DriveType != DRIVE_RAMDISK &          // исключаем  Ram disk
                        DriveType != DRIVE_REMOTE &          //исключаем FDD
                        DriveType != DRIVE_NO_ROOT_DIR &    //исключаем повреждённые диски
                        DriveType != DRIVE_UNKNOWN))       //исключаем неизвестные диски
                {
                        bool ready = DirectoryExists(disk); // пытаемcя открыть корневую директорию
                        if (ready)
                        {
                          ShowMessage(disk);
                            handle_disk( disk );
                            Application->ProcessMessages();
                        }
                        else
                        {
                            if ( ! t_wait_disk ) {
                                t_wait_disk = new timer_waits_for_explorer( 0 );
                                t_wait_disk->OnTimer = &execute_t_wait_disk;
                            }
                            t_wait_disk->set_disk_and_start( disk );
                        }
                }
        }
 
    }
}