Как использовать 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);

  tmpMsg.AddPartBinaryFromFile (CurrentAttachedFileName, nil);

 for i:=0 to ListBox1.Items.Count-1 do
  begin
      test:=(String(integer(ListBox1.Items[Listbox1.ItemIndex+1])));
      tmpMsg.AddPartBinaryFromFile (test, nil);
    end;

IdSocksInfo1.Authentication:= saNoAuthentication;
IdSocksInfo1.Port:=465;
IdSocksInfo1.Version:=svNoSocks;
IdSSLIOHandlerSocket1.SocksInfo:= IdSocksInfo1;
IdSSLIOHandlerSocket1.SSLOptions. Method:=sslvTLSv1;
idSmtp1.IOHandler:= IdSSLIOHandlerSocket1;
idSmtp1.AuthenticationType:=atLogin;
idSmtp1.Host := 'smtp.mail.ru';
idSmtp1.Password:='password';
idSmtp1.Port:=465;
idSmtp1.Username:='login';
idMessage1.Body.Text := 'текст письма';
idMessage1.From.Text := 'login@mail.ru'; // от кого
idMessage1.Recipients.EMailAddresses := 'test@mail.ru'; // кому
idMessage1.Subject := 'TEST';//тема письма
idSmtp1.Connect(15000);
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;

VCharSet :='windows-1251';

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComCtrls,
  smtpsend, mimemess, mimepart,ssl_openssl;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure SendMail (Host, Subject, pTo, From , TextBody,
                HTMLBody, login,password : string);
var Msg : TMimeMess; // сообщение
    StringList : TStringList; // содержимое письма
    MIMEPart : TMimePart; // части сообщения (на будущее)
begin
  Msg := TMimeMess.Create; // создаем новое сообщение
 // IdealCharsets:=[CP1251];
 // Msg.Header.CharsetCode:=CP1251;  // Установим кодировку  заголовков
//{$IFNDEF CIL} //error URW778 ??? :-O
//, GB2312, EUC_KR, ISO_2022_JP, EUC_TW  {$ENDIF}  ];
 
  StringList := TStringList.Create;
  try
    // Добавляем заголовки
    Msg.Header.Subject := Subject;// тема сообщения
    Msg.Header.From := From; // имя и адрес отправителя
    Msg.Header.ToList.Add(pTo); // имя и адрес получателя
    // создаем корневой элемент
    MIMEPart := Msg.AddPartMultipart('alternative', nil);
    if length(TextBody)=0 then
    // если формат HTML
      begin
        StringList.Text := HTMLBody;
        Msg.AddPartHTML(StringList, MIMEPart);
      end
    else
    // если текстовый формат
      begin
        StringList.Text := TextBody;
        Msg.AddPartText(StringList, MIMEPart);
      end;
    // Кодируем и отправляем
    Msg.EncodeMessage;
    // Отправляем.
    if smtpsend.SendToRaw(From,pTo,Host,Msg.Lines,login,password) then
        ShowMessage('Письмо отправлено')
    else
        ShowMessage('Письмо не отправлено');
 finally
   Msg.Free;
   StringList.Free;
 end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.InitialDir:=getcurrentdir;
if opendialog1.Execute then
edit3.Text:=opendialog1.FileName;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   SendMail('smpt.mail.ru:587',
        'tema testovogo pisma',
        'lemiriada870@mail.ru',
        'lemiriada870@mail.ru',
        'Soderzhimoe pisma v textovom formate',
        '',
        'lemiriada870', '1234567890i')
 
//SendMail('smtp.mail.ru:587', edit2.Text, edit1.Text, 'lemiriada870@mail.ru' , memo1.Lines.Text, '', edit3.Text, 'lemiriada870', '1234567890i');
end;
 
end.