Source position: vsauthentication.pas line 25
type TOnAuthenticate = procedure(
Sender: TComponent;
User: string;
Pass: string;
IPInfo: TIPInfo;
var Authenticated: Boolean
) of object;