Поиск сообщества

Доброе время суток. Борюсь с Indy 10 на FMX. Обмен данными между сервером и клиентом наладил. Все работает стабильно. Стал экспериментировать с разрывом связи. И тут программы ведут себя не очень понятно, особенно на клиенте. Если сервер не запушен. Клиент на команде IdTCPClient.Connect; закрывается. ???? Делаю обработки так procedure TfrmMainClient.TimerTimer(Sender: TObject); var Server : string; begin if not IdTCPClient.Connected then try IdTCPClient.Connect; except on E : Exception do lblInfo.Text := e.Message; end; Server := 'Сервер ' + IdTCPClient.Socket.Binding.PeerIP + ':' + IntToStr(IdTCPClient.Socket.Binding.PeerPort); if IdTCPClient.Connected then begin lblInfo.Text := Server + ' подключен!'; lblInfo.TextSettings.FontColor := TAlphaColors.Green; end else begin lblInfo.Text := Server + ' не доступен!'; lblInfo.TextSettings.FontColor := TAlphaColors.Red; end; end; Никаких сообщений не появляется. Программа подвисает вместе с Адроидом, потом тупо окно закрывается. Молча. Таймауты на клиенте выставил ConnectTimeOut = 5000; ReadTimeOut = 5000; В общем вопрос. Как правильно организовать на Indy управление соединением? Чтобы не тормозило, Была возможность переподключиться. PS. Почему-то в Delphi 10.2 не могу найти компонент AntiFreeze. ????

Как из IdTCPServer обратиться к нужному клиенту IdTCPClient ?