Enviar E-mail...não funciona..JAMAIS

  IdMessage1.ContentType := ´text/html´;
  IdMessage1.Subject := ´Título´;
  IdMessage1.Body.Add(´1° Linha´);
  IdMessage1.Body.Add(´2° Linha´);
  IdMessage1.Body.Add(´3° Linha´);
  IdMessage1.From.Address := ´emailremetente@gmail.com´;
  IdMessage1.From.Name := ´Alan´;
  IdMessage1.From.Text := ´texto do from´;
  IdMessage1.Recipients.Clear;
  IdMessage1.Recipients.Add.Address := ´emaildequemrecebe@gmail.com´;

  wErro := ´´;

// Conecto pop por alguns SMTP só conectam depois do POP3
  try
   IdPOP31.Host := ´pop3.bol.com.br´;
   IdPOP31.Port := 110;
   IdPOP31.Username := ´usuario´;
   IdPOP31.Password := ´senha´;
   try
    IdPOP31.Connect;
    wErro := ´Nenhum Erro com POP3´;
   except
    on E:Exception do
      wErro := ´Erro: ´+E.Message;
   end;
  finally
   IdPOP31.Disconnect;
  end;

  try
  IdSMTP1.Host := ´smtp.bol.com.br´;
  IdSMTP1.Port := 25;     // gmail a porta é 465
  IdSMTP1.Username := ´usuario´;
  IdSMTP1.Password := ´senha´;
//  IdSMTP1.AuthType := atDefault;
  try
  IdSMTP1.Connect;
  wErro := wErro + #13+´Nenhum Erro com SMTP´;
  except
    on E:Exception do
      wErro := wErro + 13+´Erro: ´+E.Message;
  end;
  if (IdSMTP1.Connected) then
      IdSMTP1.SendMsg(IdMessage1)
  finally
    IdSMTP1.Disconnect;
  end;
  ShowMessage(wErro);