Source position: sqldbrestauth.pp line 25
type TAuthenticateEvent = procedure(
Sender: TObject;
aRequest: TRequest
) of object;