Timeout de TIdsmtp

[mjjj]

Hola gente del foro, una preguntita.

Tengo una aplicación que envía correo, esta funciona bien, pero en ciertas oportunidas se queda pegada.

Quisiera poder configurar el timeout del envío de un correo, cosa que al cabo de cierto tiempo lo detecte y pueda realizar alguna acción.

Les dejo el codigo que utilizo.

Código Delphi [-]
    with smtpSendMail do begin
      Host := Trim(editSMTPServer.Text);
      port := 123;
      username := 'reporte';
      password := '1234';
      ConnectTimeout := 30000;
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect; end;
    end;

Revisando el componente encontre la propiedad ConnectTimeout (codigo en rojo), le he asignado 30000 mseg.

El problema es que a pesar de esto, no he podido detectarlo y se queda pegada la aplicación.

Espero me puedan ayudar a resolver esto.

Saludos