Usb отслеживать

void __fastcall TForm1::WMDeviceChange(TMessage& Message)
{
        static DWORD old_drives = GetLogicalDrives();
 
        int new_drives = GetLogicalDrives();
        int drive = 0, count = 0;
        String sDrive = "A:";
 
        if (Message.WParam == DBT_DEVICEARRIVAL)
        {
                // определяем букву
                drive = new_drives-old_drives;
                while (drive) { drive >>= 1; count++; }
                sDrive[1] += count-1;
                // тип устройства
                if (GetDriveType(sDrive.c_str()) != DRIVE_REMOVABLE) return;
 
                // выводим
                Memo1->Lines->Add("Вставлено: " + sDrive+" в "+Now().TimeString());
 
                // запоминаем
                old_drives = new_drives;
        }
        else if (Message.WParam == DBT_DEVICEREMOVECOMPLETE)
        {
                // определяем букву
                drive = old_drives-new_drives;
                while (drive) { drive >>= 1; count++; }
                sDrive[1] += count-1;
                // тип устройства
                //int type = GetDriveType(sDrive.c_str());
 
                //if (GetDriveType(sDrive.c_str()) != DRIVE_REMOVABLE) return;
 
                // выводим
                //Memo1->Lines->Add(type);
                Memo1->Lines->Add("Удалено: " + sDrive+" в "+Now().TimeString());
 
                // запоминаем
                old_drives = new_drives;
        }
 
}