Source position: IdSMTPServer.pas line 132
type TOnSMTPUserLoginEvent = procedure(
ASender: TIdSMTPServerContext;
const AUsername: string;
const APassword: string;
var VAuthenticated: Boolean
) of object;