Fórum 530 (FastNet) e 535 (Indy) Authentication Failed, solução? #301458

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Processo de reconhecimento no POP3 do UOL
  with TNMPOP3.Create(Self) do
  begin
    AttachFilePath := ´.´;
    DeleteOnRead := False;
    ReportLevel := Status_Basic;
    TimeOut := 20000;
    Host := ´pop3.ig.com.br´;
    Port := 110;
    UserID := ´doiscliques@ig.com.br´;
    Password := ´minha_senha´;
    Connect;
    //Conexão não feita ele sai
    //Conexão feita ele desconecta e prossegue
    if not Connected then
      exit
    else
      Disconnect;
    //Prosseguindo ele agora tenta se conectar ao SMTP do UOL
  end;
  with TNMSMTP.Create(Self) do
  begin
    ClearParams := TRUE;
    Host := ´smtp.ig.com.br´;
    Port := 25;
    UserID := ´doiscliques@ig.com.br´;
    Connect;
    //Conexão não feita ele sai
    //Conexão feita ele prossegue
    if not Connected then
      exit;
    //Processo de envio
    PostMessage.Body.Clear;
    PostMessage.ToAddress.Clear;
    PostMessage.FromAddress := ´doiscliques@ig.com.br´;
    PostMessage.FromName := ´Meu Nome Completo´;
    PostMessage.Body.Add(´Teste de envio de email´);
    PostMessage.Subject := (´Teste de Envio´);
    PostMessage.ToAddress.Add(´artes@doiscliques.com´);

    SendMail;

    ShowMessage(´Enviado´);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IdMsgSend: TidMessage;
begin
  try
    // Mensagem
    with TidMessage.Create(Self) do
    begin
      Subject := ´teste de email´;
      Body.Text := ´Teste de Email´;

      // Remetente
      From.Address := ´doiscliques@ig.com.br´;
      From.Name := ´adriano´;
      //IdMsgSend.ReplyTo.EMailAddresses := ´from@ficticio.com.br´;

      // Destinatario
      Recipients.EMailAddresses := ´artes@doiscliques.com´;
    end;
    with TIdSMTP.Create(Self) do
    begin
      // Autenticacao - Use apenas quando o servidor exigir
      AuthenticationType := atLogin;
      UserId := ´doiscliques@ig.com.br´;
      Password := ´minha_senha´;

      // Dados do Servidor
      Host := ´smtp.ig.com.br´;
      Port := 25;

      Connect;
      try
        Send(IdMsgSend);
        ShowMessage(´Enviado com Sucesso´);
      finally
        Disconnect;
      end;
    end;
  finally
    if not (IdMsgSend = nil) then
    begin
      IdMsgSend.Free;
      IdMsgSend := nil;
    end;
  end;
end;