Source position: ucbase.pas line 274
type TOnLoginSucess = procedure(
Sender: TObject;
IdUser: Integer;
Usuario: string;
Nome: string;
Senha: string;
Email: string;
Privileged: Boolean
) of object;