Delphi ile mail gönderme

 
  procedure Form1.SpeedButton1Click(Sender: TObject); 
  begin 
      SMTP.HeloName := 'falanca001'; // oturum için bir ad ver.. 
       
       with IdMsgSend do 
        begin 
           Body.Clear;          
          //Body.Assign(Memo1.Lines); // formda memo1 varsa, kullan.. yoksa aşağıdaki satırı kullan : 
           Body.Add('mesajı buraya yaz -düz metin..'); 
           From.Text := '?'; // gönderen kim ? 
           ReplyTo.EMailAddresses := '?'; //alıcı reply tuşuna basarsa mesaj bu adrese gelsin 
           Recipients.EMailAddresses := '?'; //kime gidecek, alıcı ? 
           Subject := 'konu burada'; //;  
           //Priority := TIdMessagePriority(cboPriority.ItemIndex); { Mesajın önceliği } 
           CCList.EMailAddresses := '';  {CC çoklu alıcı carboncopy} 
           BccList.EMailAddresses := '';  {BCC çoklu alıcı, alıcılar diğerinin adresini göremez blindcarboncopy} 
                                                       //bunu her sunucu desteklemez. 
        end; 
   
    SMTP.AuthenticationType := atLogin; 
    SMTP.Username := '....'; //kullanıcı adın buraya; örn. ali@falanca.com 
    SMTP.Password := '...'; //şifren buraya; 
      
    SMTP.Host := '....'; // servis sağlayıcının adresi; örn. mail.falanca.com; 
    SMTP.Port := 25; //Smtp Server Portu; 
   
     SMTP.Connect; 
     try 
        SMTP.Send(IdMsgSend); 
     finally 
        SMTP.Disconnect; 
     end; 
  end;