Delphi 2010 и отправка писем на мыло

     IdSmtp1.Host:= 'smtp.yandex.ru';
     IdSmtp1.Port := 25;
     idSmtp1.Username := 'логин';
     idSmtp1.Password := 'пасс';
     Msg.From.Address := 'адресс';
     Msg.Body.Text := 'ssds быыыыр';
     Msg.Subject := 'Тема';
     Msg.Recipients.EMailAddresses := 'адресс';
     idSmtp1.Connect;
     if idSmtp1.Connected = TRUE then
     idSmtp1.Send(Msg);
     idSmtp1.Disconnect();

Msg.From.Address := 'адресс';

idMessage1.From.Text :='адресс;

procedure TForm1.Button1Click(Sender: TObject);
begin
     IdSmtp1.Host:= 'smtp.mail.ru';
     IdSmtp1.Port := 25;
     idSmtp1.Username := 'igoriy';
     idSmtp1.Password := '';
     IdMessage1.CharSet := 'UTF-8';// добавил
     IdMessage1.ContentTransferEncoding := '8bit';//добавил
     IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
     idMessage1.Body.Text := Memo1.Text;
     idMessage1.From.Text :='';
     idMessage1.Recipients.EMailAddresses := '';
     idMessage1.Subject := 'Тест';
     idSmtp1.Connect;
     if idSmtp1.Connected = TRUE then
     idSmtp1.Send(idMessage1);
     idSmtp1.Disconnect();
end;

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, IdExplicitTLSClientServerBase, IdMessageClient,
  IdSMTPBase, IdSMTP, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdTime, IdAntiFreezeBase, IdAntiFreeze, StdCtrls, IdAttachmentFile,
  ExtCtrls;
 
type
  TForm2 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
 
implementation
 
{$R *.dfm}
 
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  idSmtp1.Connect();
if idSmtp1.Connected=true then;
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
idSmtp1.Host:='smtp.mail.ru'; // smtp
idSmtp1.Port:=25 ; 
idSmtp1.Username:='********' ;
idSmtp1.Password:='********' ; 
idMessage1.Body.Text:='*******' ;
idMessage1.From.Text:='*********'; 
idMessage1.Recipients.EMailAddresses:='**********'; 
TIdAttachmentFile.Create(IdMessage1.MessageParts, 'C:\Users\Public\Documents\log1.txt');
idMessage1.Subject:='*******' ; 
end;
 
 
end.