Enviar Correos con Codigo HTML..

[joelphi]

Hola a todos en el foro...tengo un problema nuevo para mi pero se que para los usuarios del foro es algo que ya solucionaron es por ello que pido su ayuda..
Resulta que necesito enviar un correo electronico en formato HTML desde delphi, anadando en la red me encontre con este codigo..pero resulta que me menciona error al momento de conectar con el servidor smtp de gmail..les agradeceria me dijeran en que esta mal o me dieran una pagina de referencia para estudiar..El codigo es el siguiente: UTILIZO DELPHI 2007

Código Delphi [-]
procedure TForm1.EnviarCorreo;
var smtp:TIdSMTP;
  mail:TIdMessage;
begin
    smtp := TIdSMTP.Create(Self);
      Mail := TIdMessage.Create(Self);
      with smtp do
      begin

        Port:=587;
        Host:= 'smtp.gmail.com';
        Username:='Mi_Correo@gmail.com';
        Password:='Mi_Clave';
      end;

      with mail do
      begin
        Recipients.Add;
        Recipients[0].Name   :='SitiSystems';
        Recipients.EmailAddresses:='Mi_correo@gmail.com';
        From.Name            :='PMS';
        From.Address         :='Mi_Correo@gmail.com';
        Subject              :='Subject..';
        Body.Text:='Prueba de correo..';
      end;

      try
        smtp.Connect;
      except
        ShowMessage('Ocurred an Error, The Message was not Sent');
      end;
        Screen.Cursor:=CrDefault;

      try
        smtp.Send(mail);
      except
      //on E: Exception do
        ShowMessage('The Message was not Sent');
      end;

      if smtp.Connected then
        smtp.Disconnect;
      mail.Free;
      smtp.Free;
end;

y tambien utilizp este codigo e igual..no me envia el correo...

Código Delphi [-]
procedure TForm1.EnviarMensaje(sUsuario, sClave, sHost, sAdjunto, sAsunto,
  sDestino, sMensaje: String);
var SMTP: TIdSMTP;
   Mensaje: TIdMessage;
   //Adjunto: TIdAttachment;
begin
  // Creamos el componente de conexión con el servidor
  SMTP := TIdSMTP.Create( nil );
  SMTP.Username := sUsuario;
  SMTP.Password := sClave;
  SMTP.Host := sHost;
  SMTP.Port := 587;
  SMTP.AuthType := atDefault;
  SMTP.SupportsTLS;
 // smtp.Authenticate;

  // Creamos el contenido del mensaje
  Mensaje := TIdMessage.Create( nil );
  Mensaje.Clear;
  Mensaje.From.Name := sDestino;
  Mensaje.From.Address := sDestino;
  Mensaje.Subject := sAsunto;
  Mensaje.Body.Text := sMensaje;
  Mensaje.Recipients.EMailAddresses := 'Mi_correo@gmail.com';
  Mensaje.Recipients.Add;
  Mensaje.Recipients.Items[0].Address := 'Correo_Destino@hotmail.com';
  try
    SMTP.Connect;
  except
    raise Exception.Create( 'Error al conectar con el servidor.' );
  end;
     if SMTP.Connected then
     SMTP.Send(Mensaje);

  FreeAndNil( Mensaje );
  FreeAndNil( SMTP );

  Application.MessageBox( 'Mensaje enviado correctamente.',
    'Fin de proceso',MB_ICONINFORMATION );
end;

EnviarMensaje('Mi_correo@gmail.com', 'mi_Clave', 'smtp.gmail.com',
             '-', 'Te envio mi documento',
             'Mi_correo@gmail.com', 'Adjunto archivo: documento.zip');

les agradecere mucho su ayuda..