Source position: ucbase.pas line 273
type TOnLogin = procedure(
Sender: TObject;
var User: string;
var Password: string
) of object;