Problemas al enviar Email

[BuenaOnda]

Hola amigos del foro:

Les agradeceria mucho que me ayudaran a resolver un problema que tengo, les cuento necesito mandar un email y probado con muchos componentes(Indy,Fassnet) y ninguno ha solucionado mi problema.. a lo mejor proporciono mal los datos como : host, usuario,etc..

por ejemplo componentes Indy

Código Delphi [-]
  
//En el caso de un servidor GMAIL
  IDSMTP1:=TIDSMTP.Create(nil);
  IdSMTP1.AuthenticationType :=atLogin;
  IdSMTP1.UserNAME := micuenta@gmail.com; //me imagino que es la misma
                                                              //que la de mi correo gmail 
 
  IdSMTP1.Password := 123456;                   //me imagino que es el mismo
                                                              //que la de mi correo gmail 
  IdSMTP1.Host := smtp.gmail.com;
  IdSMTP1.Port := 25;
 
  with Mensaje do
  begin
  Body.Add(CUERPO);
  From.Text := micuenta@gmail.com
  Recipients.EMailAddresses := miamigo@hotmail.com
  Subject := 'para probar';
  Priority := TIdMessagePriority(mpHighest);//prioridad del mensaje
  CCList.EMailAddresses := '';
  BccList.EMailAddresses := '';
  TIdAttachment.Create(Mensaje.MessageParts,adjunto);
  end; //configuracion server smtp

  with idsmtp1 do
  begin
   try
      Connect;
      try
        // Envio el mensaje.
        Send(Mensaje);
      finally
        Disconnect;
      end;
  //    MessageDlg('Enviado Correctamente', mtInformation, [mbOK], 0);
    except
       // Capturo algunas excepciones que pueden ocurrir
      ON E: EIdProtocolReplyError do begin
      MessageDlg('No se ha podido enviar el email.' + #13 +
            'Incorrecto el email o el usuario o la password.', mtError, [mbOK], 0);
      end;
      on E: EFOpenError do begin
      MessageDlg('No se ha podido enviar el email.' + #13 +
            'Fichero Adjunto desconocido o erróneo.', mtError, [mbOK], 0);
      end;
      on E: EIdSocketError do begin
      MessageDlg('No se ha podido enviar el email.'+ #13 +
            'Host desconocido o incorrecto.', mtError, [mbOK], 0);
      end
      else begin
      MessageDlg('Fallo en el envio de email', mtError, [mbOK], 0);
      end;
    end;
  end;

tambien lo intente con un correo hotmail y tuve el mismo problema

muchas gracias por su valiosa ayuda...