IdSMTP停留在Connect方法上

Question

我正在使用IdSMTP并在我的表单中动态创建/销毁TIdSMTP组件。大多数情况下，smtp.Connect没有问题，但我发现有些情况下主UI会卡住并变得无法响应。

我添加了ConnectTimeout和ReadTimeout属性，但仍然遇到了同样的问题。应用程序变得没有响应，迫使我们终止这个过程。

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

我有一个绑定到stmp的OnStatus事件，由idstmp控件引发 解决 连 已连接

但由于某种原因，Connect仍然使应用程序免费并且无法响应。