How can I get a Kerberos ticket with Delphi?

active-directory, delphi, kerberos, web-services

Solution

According to this you should be able to get one with the InitializeSecurityContext windows API call.

Problem

Are there examples which show how Delphi invokes the Active Directory Kerberos server to request a ticket granting ticket / normal ticket? Background: the ticket is required for authentification to a web service which exchanges confidential information. Edit: a short source code example would be very helpful. I have found the JEDI Windows Security Code Library which is very impressing. I am not sure if it contains support for Kerberos.

Original source