Index: VerpakkingsDefinitie/WS/Agent.pas
===================================================================
diff -u -r552 -r555
--- VerpakkingsDefinitie/WS/Agent.pas	(.../Agent.pas)	(revision 552)
+++ VerpakkingsDefinitie/WS/Agent.pas	(.../Agent.pas)	(revision 555)
@@ -3,7 +3,7 @@
 interface
 
 uses SysUtils,
-  ApplicationContext, UserServerService;
+  ObserverPattern, ApplicationContext, UserServerService;
 
 // Resource strings are stored as resources and linked into the executable or
 // library so that they can be modified without recompiling the program.
@@ -78,6 +78,8 @@
 
   UserServerServiceContext.SessionKey := pxLogInObj.SessionKey;
   UserServerServiceContext.GebruikersNaam := pxLogInObj.GebruikersNaam;
+
+  UserServerServiceContext.Changed();
 end;
 
 procedure TAgent.RegistreerMislukteLogin(UserServerServiceContext: TUserServerServiceContext; pxStatusObj: pxStatus);
@@ -89,6 +91,8 @@
   UserServerServiceContext.IsOK := pxStatusObj.IsOK;
   UserServerServiceContext.ErrorMessage := pxStatusObj.Message_;
   UserServerServiceContext.InternalErrorMessage := pxStatusObj.InternalMessage;
+
+  UserServerServiceContext.Changed();
 end;
 
 procedure TAgent.GebruikerAfmelden(UserServerServiceContext: TUserServerServiceContext);
@@ -133,13 +137,17 @@
   UserServerServiceContext.InternalErrorMessage := '';
   UserServerServiceContext.SessionKey := '';
   UserServerServiceContext.GebruikersNaam := '';
+
+  UserServerServiceContext.Changed();
 end;
 
 procedure TAgent.RegistreerMislukteLogout(UserServerServiceContext: TUserServerServiceContext; pxStatusObj: pxStatus);
 begin
   UserServerServiceContext.IsOK := pxStatusObj.IsOK;
   UserServerServiceContext.ErrorMessage := pxStatusObj.Message_;
   UserServerServiceContext.InternalErrorMessage := pxStatusObj.InternalMessage;
+
+  UserServerServiceContext.Changed();
 end;
 
 end.