Invio MAIL con INDY e DELPHI 7

Buongiorno a tutti,
vorrei realizzare un sistema in grado di inviare mail all'occorrenza di un
determinato evento ad un eleco di mail ma ho un problema con l'utilizzo
dei componenti INDY (ver. 9)
sto utilizzando due componenti TIdSMTPe TIdMessage
e cerco di inviare una mail a più destinatari elencati in una TlistBox, lancio :

procedure TForm1.SendAllBtnClick(Sender: TObject);
var
  nItem: integer;
begin
   nItem := ListBox1.ItemIndex

   //....connessione
   IdSMTP1.Host := 'smtp.gmail.com';
   IdSMTP1.Username := 'miaMail@gmail.com';
   IdSMTP1.Port := '465';
   IdSMTP1.Password := 'miaPassword';
   IdSMTP1.AuthenticationType := atLogin;

   IdSMTP1.Connect;

   //...........invio dei messaggi
   try
      //...imposta la parte fissa intestazione
      IdMessage1.From.Name := 'mio Nome';
      IdMessage1.Subject := 'test invio';
      IdMessage1.Body.Insert(0, 'Hello Test');
      while nItem < ListBox1.Items.Count do begin
         //....mostra la selezione corrente
         Application.ProcessMessages;
         ListBox1.ItemIndex := nItem;
         IdMessage1.Body[0] := 'Hello '+ListBox1.Items[nItem];
         IdSMTP1.Send(IdMessage1);
         Inc(nItem);
      end;
   finally
      IdSMTP1.Disconnect;
   end;
end;

ma al momento della connesione
ricevo un messaggio 'Connect closed gracefully'

qualcuno ha già avuto e superato questo problema ?