How can I get a Kerberos ticket with Delphi?

Question

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

Answer 1

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