infinite loop when server expects SSL

Giganews Newsgroups
Subject: infinite loop when server expects SSL
Posted by:  Rasmus W (
Date: Wed, 26 Aug 2009

I am experiencing problems when trying to send a message to a mail server
which requires SSL (STARTTLS) (the mail server is
It seems that when TIdSMTPBase.SendPipeLining sends MAIL FROM, the server
returns an error which is "530 Must issue a STARTTLS command first".
SendPipeLining receives the error and stores it in LError, but does no
checking on that before it sends RCPT TO.
While waiting for the response to RCPT TO it then waits forever (well,
almost. - the while loop in TIdIOHandler.ReadLnWait waits until MaxInt

Is there a way around this problem?

I am using the Delphi 2007 built-in Indy10.