Autenticacion de Google Mail

[Emilio_82]

Hola,

Tengo una aplicacion en la que quiero enviar mails. (NO HACER SPAM) Sino enviar mail a proveedores. Lo que quiero es que no pase a traves de outlook sino que de la misma aplicacion los envie.

Uso en el Form un TIdSMTP y TIdMessage de Indi. Y para enviar tengo el siguiente código.

Código Delphi [-]
procedure TForm_EnviarXMail.Btn_EnviarClick(Sender: TObject);
var
Mail: Variant;
ArchivoAdjunto: boolean;
begin

  StatusMemo.Clear;

  //setup SMTP
  SMTP.Host := Host;
  SMTP.Port := 465;

  //setup mail message
  MailMessage.From.Address := From;
  MailMessage.Recipients.EMailAddresses := E_Para.Text;  //+ ',' + ledCC.Text;

  MailMessage.Subject := E_Asunto.Text;
  MailMessage.Body.Text := E_Cuerpo.Text;

  if FileExists(ledAttachment.Text) then
    TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);

  //send mail
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;

Enviado:= True;
end;

Obviamente lo tome de un ejemplo. las variables están bien cargadas.
Pasa que google como casi todos los servidores necesitan autenticación.

¿Como autentico sin usar outlook?

Gracias desde ya por las respuestas.