TEDBSessionLoginEvent = procedure (Sender: TObject; var UserName: String; var Password: String; var Continue: Boolean) of object