Smtp Indy

[DarkByte]

Este es el código de un mailer anónimo que estube haciendo hace tiempo, cuando me pregunté cómo funcionarían estos:

         SMTP1.UserID := PalabraAleatoria (6);
         Estado1.Caption := 'Conectando...';
            try SMTP1.Connect Except
                ShowMessage ('Error al conectar con el servidor SMTP');
            end;
         Estado1.Caption := 'Enviando datos...';
         Progreso1.Position := 30;
         SMTP1.PostMessage.FromAddress := PalabraAleatoria (7)+'@'+ PalabraAleatoria (5)+'.'+PalabraAleatoria (3);
         SMTP1.PostMessage.FromName := PalabraAleatoria (8);
         SMTP1.PostMessage.ToAddress.Text := ePara.Text;
         SMTP1.PostMessage.Body.Text := eMensaje.Text;
         SMTP1.PostMessage.Subject := eAsunto.Text;
         Estado1.Caption := 'Enviando correo...';
         Progreso1.Position := 70;
         SMTP1.SendMail;
         Progreso1.Position := 100;
         Estado1.Caption := 'Desconectando...';
         SMTP1.Disconnect;

Como siempre, confío en mis compañeros de clubdelphi para que me corrijan