Source position: msedatabase.pas line 121
type TLoginEvent = procedure(
Sender: TObject;
Username: string;
Password: string
) of object;