Enviar correo hotmail usando Synapse [Lazarus]

[bitbow]

Revisando nuevamente el tema, gmail detecta el login y me envia el siguiente email:

Alguien acaba de intentar iniciar sesión en tu cuenta de Google,[email protected], en una aplicación que no cumple los estándares de seguridad modernos.
Te recomendamos encarecidamente que utilices una aplicación segura, como Gmail, para acceder a tu cuenta. Todas las aplicaciones creadas por Google cumplen estos estándares de seguridad. No obstante, si utilizas una aplicación menos segura, tu cuenta puede volverse más vulnerable.

Supongo que en algun otro server con menos restricciones si funcionara, te pongo el codigo del ejemplo que estoy usando.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  oSmtpClient: TSmtpClient;
begin
  oSmtpClient := TSmtpClient.Create;
  try
   oSmtpClient.ServerAddress := 'smtp.gmail.com';        // ->>>error:  oSmtpClient.ServerDomain := 'smtp.mandrillapp.com';
   oSmtpClient.ServerPort := '587';
   oSmtpClient.ServerLoginUsername := '[email protected]';
   oSmtpClient.ServerLoginPassword := 'xxxxxx';
   oSmtpClient.MessageClear;
   oSmtpClient.BodyAsPlainText.Text := 'Plain body text.';
   oSmtpClient.BodyAsHtml.Text := 'Html body text';

   oSmtpClient.AutoTLS := True;
   oSmtpClient.FullSSL := True;
   oSmtpClient.StartTLS;

   if oSmtpClient.Send( '[email protected]',          //mailfrom
                        '[email protected]',             //mailto
                        '',                          // copy to
                        '',                          // copy to
                        'Subject ... Buy more of our stuff' )    //Subject
                         then
          ShowMessage( 'Send ok' )
        else
          ShowMessage( 'Err: '+ oSmtpClient.SendResult );
  finally
    oSmtpClient.Free;
  end;
end;

Saludos.