IdSMTP застрял на методе подключения

Я использую IdSMTP и динамически создаю / уничтожаю компонент TIdSMTP в своей форме. В большинстве случаев проблем с smtp.Connect не возникает, но я обнаружил, что бывают ситуации, когда основной пользовательский интерфейс застревает и перестает отвечать на запросы.

Я добавил свойства ConnectTimeout и ReadTimeout, но все еще получал ту же проблему. Приложение перестает отвечать на запросы и вынуждает нас завершить процесс.

  smtp.ConnectTimeout := 10000;
smtp.ReadTimeout := 10000;
smtp.Connect;
if smtp.Connected then
begin
smtp.Send(Mess);
smtp.Disconnect;
end

У меня есть событие OnStatus, привязанное к stmp, которое вызывается контролем idstmp
Разрешающая
соединительный
Связано

Но по какой-то причине Connect по-прежнему делает приложение бесплатным и действует без ответа.