Jak wysłać e-mail poprzez komponenty Indy lub FastNet

Zaraz mie szlag trafi jak sie ktos jescze o to zapyta:
dajemy na forme TIdMessage (MessageSend) i TIdSMTP (SMTP)

 MessageSend.Body.Append('tresc maila'); 
 MessageSend.From.Name := 'imie od kogo';
 MessageSend.From.Address := 'adres od kogo';
 MessageSend.Recipients.EMailAddresses := 'Odbiorca';
 MessageSend.Subject := 'temat';

 { UserName bądź UserId - to jest zeleżne od wersji Indy. ja pisałem na Indy 8 }
 SMTP.UserName := 'nazwa użytkownika serwera SMTP';
 SMTP.Password :=  'hasło';
 SMTP.Host :=  'adres serwera SMTP';
 SMTP.AuthenticationType:=atLogin; // autoryzacja SMTP
 SMTP.Connect; 
 try
  SMTP.Send(MessageSend); //wyślij
 finally
  SMTP.Disconnect; 
 end; 

Załączniki, jakby komuś nie chciało czytać się komentarzy poniżej:
TIdAttachment.Create(MessageSend.MessageParts, OpenDialog1.FileName);

Natomiast, jeżeli mamy dostęp do komponentów FastNet (których już nawiasem mówiąc nie ma w nowszych Delphi) to możemy użyć takiego kodu:

NMSMTP1 to komponent TNMSMTP.

begin 
  NMSMTP1.Host := 'smtp.MojaSkrzynka.pl'; // serwer SMTP
  NMSMTP1.Port := 25; // port SMTP
  NMSMTP1.UserID := 'ToJa'; // użytkownik serwera
  NMSMTP1.Connect; // połączenie
  Sleep(100); // poczekaj
  NMSMTP1.PostMessage.FromAddress := 'Ja@MojaSkrzynka.pl'; // z jakiego adresu
  NMSMTP1.PostMessage.FromName := 'Kowalski'; // nazwisko użytkownika
  NMSMTP1.PostMessage.Subject := Edit1.Text; // temat
  NMSMTP1.PostMessage.ToAddress.Add('Nowak@InnaSkrzynka.pl'); // na jaki adres wysłać
  NMSMTP1.PostMessage.Body.Add('Tresc'); // treść maila
  NMSMTP1.SendMail; // wysyła
  NMSMTP1.Disconnect; // rozłącza
end;