Delphi - [Delphi 7]cosa c'è che non va nel sorgente?

Salve a tutti, ho configurato il componente SMTP, di delphi 7 così,
Server posta in uscita (SMTP): smtp.mail.yahoo.it
SMTP: porta 465

ho messo questo codice su un button

    
      MailMessage.From.Address := 'miamail@yahoo.it';
      MailMessage.Recipients.EMailAddresses := 'miamail@yahoo.it';
      MailMessage.Subject := 'oggetto';
      MailMessage.Body.Text := 'corpo della mail';
     
      try
        try
          SMTP.Connect;
          SMTP.Send(MailMessage);
        except on E:Exception do
          begin
            showmessage( '*ERRORE SMTP* '+EIdException(E).Message);
          end;
        end;
      finally
        if SMTP.Connected then SMTP.Disconnect;
      end;

e spostando nell'object injector, l' AuthenticationType in AtLogin, ma purtroppo non va, a quanto pare si connette, ma per qualche strana ragione poi si disconnette, voi sapreste dirmi cosa c'è di sbagliato?...
specifico che ho messo sia l'username che la password...

controlla che il server permetta l'invio di mail tramite smtp non criptato