Не удается выполнить исходящий вызов, так как приложение обрабатывает входящий синхронный вызов

procedure GetUSBID();
 var
Pos1 : LongInt ;
 begin
    CoInitialize(nil);
    try
      FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
      FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
      FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive Where InterfaceType="USB"',
      'WQL',wbemFlagForwardOnly);
      oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
      while oEnum.Next(1, FWbemObject, iValue) = 0 do
      begin
         form2.label3.Caption :=FWbemObject.Caption;
 
                                      { определить позицию пробела }
       Pos1 := Pos( ' ', form2.label3.Caption) ;
       { если пробела нет - то сразу на выход }
       {if Pos1 = 0 then Exit ;   }
 
       { копируем из строки кусок с первого символа до позиции найденного пробела }
       form2.label3.Caption := Copy(form2.label3.Caption, 1, Pos1-1) ;
        //Form1.Memo1.Lines.Add(Format('USb Divace: "%s"   ID:"%s "',
       // [(FWbemObject.Caption),FWbemObject.PNPDeviceID]));
        VarClear(FWbemObject);
      end;
    finally
      CoUninitialize;
    end;
end;

unction GetDrive(pDBVol: PDevBroadcastVolume): string; //Получаем букву драйва из структуры PDevBroadcastVolume
var
  i: Byte;
  Maske: DWORD;
begin
  Maske := pDBVol^.dbcv_unitmask;
  for i := 0 to 25 do begin
    if (Maske and 1) = 1 then Result := Char(i + Ord('A')) + ':';
    Maske := Maske shr 1;
  end;
end;
procedure TForm2.WMDeviceChange(var Msg: TMessage); //собственно ловим инсерт/еджект драйвов
  begin
  if Msg.wParam = DBT_DeviceArrival then
  begin //если засунули
     ShowMessage('вставили флешку'+Drive);
  
        end
 
 
 else if  Msg.wParam = DBT_DeviceRemoveComplete then begin //если выдернули
    Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
    ShowMessage(Drive);   
  end;
end;
end;

procedure TForm2.WMDeviceChange(var Msg: TMessage); //собственно ловим инсерт/еджект драйвов
  begin
  if Msg.wParam = DBT_DeviceArrival then
  begin //если засунули
     ShowMessage('вставили флешку'+Drive);
  GetUSBID();
        end
 
 
 else if  Msg.wParam = DBT_DeviceRemoveComplete then begin //если выдернули
    Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
    ShowMessage(Drive);   
  end;
end;
end;