Как использовать SSL для отправки почты на Delphi 7 Indy 9

  IdSSLIOHandlerSocket1.SocksInfo:=IdSocksInfo1;
  idSmtp1.IOHandler := IdSSLIOHandlerSocket1;
  idSmtp1.Host := 'smtp.mail.ru';
  idMessage1.Body.Text := ' Hello World ';
  idMessage1.From.Text := 'mymailsend@mail.ru';
  idMessage1.Recipients.EMailAddresses := 'vasyapupkin@mail.ru';
  idMessage1.Subject := 'tema ';
  
  idSmtp1.Connect(15000);

    idSmtp1.Host := 'smtp.mail.ru';
  idMessage1.Body.Text := ' Hello World ';
  idMessage1.From.Text := 'XXXX@mail.ru';
  idMessage1.Recipients.EMailAddresses := 'YYYY@mail.ru';
  idMessage1.Subject := 'tema ';
 
  IdSSLIOHandlerSocket1.SSLOptions.Method := sslvTLSv1;
 
 
  idSmtp1.Connect;
  idSmtp1.Send(IdMessage1);
  idSmtp1.Disconnect;

    
    IdSocksInfo1.Authentication:=saNoAuthentication;
    IdSocksInfo1.Port:=465;
    IdSocksInfo1.Version:=svNoSocks;
    IdSSLIOHandlerSocket1.SocksInfo:=IdSocksInfo1;
    IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvTLSv1;
    idSmtp1.IOHandler:= IdSSLIOHandlerSocket1;
    idSmtp1.Host := 'smtp.mail.ru';
    //не забываем другие настройки SMTP логин и пароль
    idMessage1.Body.Text := 'Сообщение ';
    idMessage1.From.Text := 'mymail@mail.ru';
    idMessage1.Recipients.EMailAddresses := 'vasyadrug@mail.ru';
    idMessage1.Subject := 'hello ';
    idSmtp1.Connect(15000);
    idSmtp1.Send(idMessage1);
    idSmtp1.Disconnect;

// IdSocksInfo1.Authentication:=saNoAuthentication;

IdSocksInfo1.Authentication:=saUsernamePassword;
IdSocksInfo1.Username:='имя';
IdSocksInfo1.Password:='пароль';

SMTP.AutoTLS := True;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ssl_openssl, StdCtrls, Buttons, SMTPSend, MIMEPart, MIMEMess;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  SendMail('smtp.mail.ru', 'тема сообщения', 'e-mail получателя', 'e-mail отправителя', 'Текст сообщения', '');
end;
 
Procedure SendMail (pHost, pSubject, pTo, pFrom , pTextBody, pHTMLBody : string);
var
  tmpMsg : TMimeMess;
  tmpStringList : TStringList;
  tmpMIMEPart : TMimePart;
begin
  tmpMsg := TMimeMess.Create;
  tmpStringList := TStringList.Create;
  try
    // Headers
    tmpMsg.Header.Subject := pSubject;
    tmpMsg.Header.From := pFrom;
    tmpMsg.Header.ToList.Add(pTo);
    // MIMe Parts
    tmpMIMEPart := tmpMsg.AddPartMultipart('alternate',nil);
    if length(pTextBody)<>0 then
    begin
      tmpStringList.Text := pTextBody;
      tmpMsg.AddPartText(tmpStringList, tmpMIMEPart);
    end
    else
    begin
      tmpStringList.Text := pHTMLBody;
      tmpMsg.AddPartHTML(tmpStringList, tmpMIMEPart);
    end;
    // Encode and send
    tmpMsg.EncodeMessage;
    smtpsend.SendToRaw(pFrom, pTo, pHost, tmpMsg.Lines, '<Ваш username>', '<Ваш пароль>');
  finally
    tmpMsg.Free;
    tmpStringList.Free;
  end;
end;

    tmpMsg.AddPartBinaryFromFile (CurrentAttachedFileName, nil);

//***********************************************
if IdSMTP1.Connected then
  begin
    IdSMTP1.Disconnect;
  end;
   IdSocksInfo1.Authentication:=saNoAuthentication;
    IdSocksInfo1.Port:=465;
    IdSocksInfo1.Version:=svNoSocks;
    //SSLHandler.sSSLSocket:=IdSocksInfo1;
    SSLHandler.SSLOptions.Method:=sslvTLSv1;
  IdMessage1.Clear; // очищаю письмо
  IdSMTP1.IOHandler := SSLHandler; //устанавливаем SSL Handler для IdPOP3 SMTP
     IdSMTP1.UseTLS := utUseImplicitTLS;  //использовать неявный TSL
  SSLHandler.SSLOptions.Method := sslvTLSv1;
  IdSMTP1.Host := 'smtp.yandex.ru';
  IdSMTP1.Port := 465;        // обычно при использование ssl 495, 587 или стандартный 25
  // SetupSSL;  // настройка SSL соединения
  IdSMTP1.AuthType := satDefault;
  IdSMTP1.UserName := 'name';
  IdSMTP1.Password := 'parol';
  IdMessage1.From.Name :=' *** '; // От кого
  IdMessage1.From.Address := 'name@yandex.ru'; // EMail-От кого;
 
//***********************************************

  Procedure SendMail (pHost, pSubject, pTo, pFrom , pTextBody, pHTMLBody : string);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ssl_openssl, StdCtrls, Buttons, SMTPSend, MIMEPart, MIMEMess;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  Procedure SendMail (pHost, pSubject, pTo, pFrom , pTextBody, pHTMLBody : string);
 
implementation
 
{$R *.dfm}

Procedure TForm1.SendMail (pHost, pSubject, pTo, pFrom , pTextBody, pHTMLBody : string);
var
  tmpMsg : TMimeMess;
  tmpStringList : TStringList;
  tmpMIMEPart : TMimePart;
begin
  tmpMsg := TMimeMess.Create;
  tmpStringList := TStringList.Create;
  try
    // Headers
    tmpMsg.Header.Subject := pSubject;
    tmpMsg.Header.From := pFrom;
    tmpMsg.Header.ToList.Add(pTo);
    // MIMe Parts
    tmpMIMEPart := tmpMsg.AddPartMultipart('alternate',nil);
    if length(pTextBody)<>0 then
    begin
      tmpStringList.Text := pTextBody;
      tmpMsg.AddPartText(tmpStringList, tmpMIMEPart);
    end
    else
    begin
      tmpStringList.Text := pHTMLBody;
      tmpMsg.AddPartHTML(tmpStringList, tmpMIMEPart);
    end;
    // Encode and send
    tmpMsg.EncodeMessage;
    smtpsend.SendToRaw(pFrom, pTo, pHost, tmpMsg.Lines, '<b7058889950>', 'пароль');
  finally
    tmpMsg.Free;
    tmpStringList.Free;
  end;
 
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    SendMail('smtp.mail.ru', 'ТЕМА', 'berik27@mail.ru', 'b7058889950@mail.ru', 'содержание', '');
end;
 
end.