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();