Source position: sqldbrestauth.pp line 43
type TBasicAuthenticationEvent = procedure(
sender: TObject;
const aUserName: UTF8String;
const aPassword: UTF8String;
var allow: Boolean;
var UserID: UTF8String
) of object;