Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r248 -r254
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 248)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 254)
@@ -12,6 +12,7 @@
     pnlMain: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure FormActivate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     fUiContext: TUiContext;
     fHuidigScherm: TForm;
@@ -38,6 +39,12 @@
   NavigeerNaar(mrLogin);
 end;
 
+procedure TfmProScanHoofdscherm.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  TAgent.Create(UiContext).GebruikerAfmelden();
+end;
+
 procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
 begin
   fUiContext := TUiContext.Create();
Index: AAPClient/ProScanMain.dfm
===================================================================
diff -u -r241 -r254
--- AAPClient/ProScanMain.dfm	(.../ProScanMain.dfm)	(revision 241)
+++ AAPClient/ProScanMain.dfm	(.../ProScanMain.dfm)	(revision 254)
@@ -18,6 +18,7 @@
   OldCreateOrder = False
   Visible = True
   OnActivate = FormActivate
+  OnClose = FormClose
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
@@ -29,9 +30,5 @@
     Align = alClient
     BevelEdges = []
     TabOrder = 0
-    ExplicitLeft = 152
-    ExplicitTop = 304
-    ExplicitWidth = 185
-    ExplicitHeight = 41
   end
 end