Source position: ucbase.pas line 276
type TOnLoginError = procedure(
Sender: TObject;
Usuario: string;
Senha: string
) of object;