procedure TForm3.Button2Click(Sender: TObject);
var
  msg: TIdMessage;
begin
  try
    msg := TIdMessage.Create(nil);
    msg.Body.Add('test mail раз два три раз два три, проверка микрофонааааа!');
    msg.Subject := 'бла бла бла';
    msg.From.Address := 'vasyapupkin@mail.ru';
    msg.From.Name := 'putich';
    msg.Recipients.EMailAddresses := 'vasyapupkin@mail.ru';
    msg.IsEncoded := True;
    IdSMTP1.Send(msg);
    msg.free;
    IdSMTP1.Disconnect;
  except
    on E: Exception do
    begin
      msg.free;
      IdSMTP1.Disconnect;
    end;
  end;

end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  try
    IdSMTP1.Host := 'smtp.mail.ru';
    IdSMTP1.Port := 465;
    IdSMTP1.Username := 'vasyapupkin@mail.ru';
    IdSMTP1.Password := '123456';
    IdSMTP1.Connect;
  except
    on E: Exception do
  end;
end;