Delphi XE8, Android.
Не могу перехватить исключение при попытке активировать TTetheringManager, при отладке появляется EIdSocketError "Socket Error #101 Network is unreachable". Если игнорировать или запускать приложение отдельно - глухой висяк. Код простой:
procedure TForm1.Button1Click(Sender: TObject);
begin
try
TM.Enabled:=True;
except
on E : EIdSocketError do
ShowMessage(E.Message) ;
end;
if TM.Enabled then
TAP.Enabled:=True;
end;
Исключение не перехватывается. Возникает судя по всему уже в отдельном потоке и приводит к неработоспособности приложения при попытке запустить с выключенным wifi или интернетом.
Конечно можно обвесить каждое телодвижение внешними проверками на наличие связи, но подозреваю есть путь проще. Буду благодарен за помощь