Delphi Tethering Errors

Question

Приложение Delphi 10.2.3 привязывает эти сообщения об ошибках при вызове SendString(), когда сопутствующее приложение больше не привязано.

Блокировка объекта не принадлежит

Профиль {ID профиля здесь} не подключен.

Я пытаюсь предотвратить вызов SendString(), если профиль сопутствующего приложения не готов с этим кодом:

  if (TetheringManager.RemoteProfiles.Count = 0)
    then Exit;

  if (TetheringAppProfile.ConnectedProfiles.Count = 0)
    then Exit;

theResult := TetheringAppProfile.SendString(TetheringManager.RemoteProfiles.First,
                                                  'myNumberInformation',
                                                  MyNumber.ToString);

Есть ли лучший способ выяснить, готово ли сопутствующее приложение для SendString()?

В противном случае, есть ли способ подавления сообщений об ошибках?