отправка на емейл (в чем ошибка?)Delphi

[Fawas]

Здраствуйте...
Помогите по счет Delphi.
Создал програму . Записываеш дание.. нажимаеш на кнопку и они должны отправлятся по емейлу с одного мыла на другое.
вод код целой програми

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdMessage,
  IdAntiFreezeBase, IdAntiFreeze;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    Button1: TButton;
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     IdSmtp1.Host:= 'smtp.mail.ru';
     IdSmtp1.Port := 25;
     idSmtp1.Username := 'igoriy.68';
     idSmtp1.Password := 'ivd1968';
     IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
     idMessage1.Body.Text := Memo1.Text;
     idMessage1.From.Text :='igoriy.68@mail.ru';
     idMessage1.Recipients.EMailAddresses := 'domos.68@mail.ru';
     idMessage1.Subject := 'Tect';
     idmessage1.ContentType:='text/html; charset=windows-1251';
     idmessage1.ContentTransferEncoding:='8bit';
     idSmtp1.Connect;
     if idSmtp1.Connected = TRUE then
     idSmtp1.Send(idMessage1);
     idSmtp1.Disconnect();
end;



end.

запускается... ошибка "Socket Error # 10060"
что делать???
одни говорят что он работает одни что нет.
Использую Delphi 10

[Fawas]

ап ап ап ап ап ап

[VAM]

Попробуйте Port := 2525 и изменить тип авторизации у IdSMTP AuthType