[twsocket] TSmtpCli - How do I process multiple emails using this component?

[SoftTech]

Greets All,

I need to loop thru a database and process several emails.  I first setup the 
default settings for the SmtpCli component, then later in my code I loop thru 
data in a dataset as shown below.  My problem is it will only process the first 
email in the dataset, then when it gets to the "Connect" command a second time 
I get an error: 'SMTP component not ready'.  What did I forget to do or do 
wrong?

Here is my code:
      with dtmProcessEmails.cdsEmail do
        begin
          First;

          while not EOF do
            begin
              with dtmProcessEmails.SmtpCli do
                begin
                  FromName := dtmProcessEmails.cdsEmailEMAIL_FROM.AsString; // 
Actual from email address
                  HdrFrom := recUser.CompanyName;
                  HdrTo := dtmProcessEmails.cdsEmailEMAIL_TO.AsString;
                  HdrReplyTo := '[EMAIL PROTECTED]'; 
                  HdrSubject := dtmProcessEmails.cdsEmailEMAIL_SUBJECT.AsString;

                  //* Recipient list is computed from To, Cc and Bcc fields
                  RcptName.Clear;
                  RcptNameAdd(dtmProcessEmails.cdsEmailEMAIL_TO.AsString, '', 
'');

                  Display('Connecting to SMTP server...');

                  { Start first operation to do to send an email          }
                  { Next operations are started from OnRequestDone event  }
                  Connect;
                end;

              barProgressBar.IncPartsByOne;

              Next;
            end;
        end;
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be