void __fastcall TForm1::WMDeviceChange(TMessage &Message)
{
  wchar_t name[255];
  wchar_t *pname;
  _DEV_BROADCAST_PORT_W    DEV_BROADCAST_PORT_W;

  if (Message.WParam == DBT_DEVICEARRIVAL)
    {
    DEV_BROADCAST_PORT_W = *((_DEV_BROADCAST_PORT_W *) Message.LParam);
    if (DEV_BROADCAST_PORT_W.dbcp_devicetype == 3)
            ShowMessage(DEV_BROADCAST_PORT_W.dbcp_name);

    }
  if (Message.WParam == DBT_DEVICEREMOVECOMPLETE)
    {
    DEV_BROADCAST_PORT_W = *((_DEV_BROADCAST_PORT_W *) Message.LParam);
    if (DEV_BROADCAST_PORT_W.dbcp_devicetype == 3)
            ShowMessage(DEV_BROADCAST_PORT_W.dbcp_name);

    }
}