Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r15 -r16
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 15)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 16)
@@ -17,6 +17,7 @@
     fHuidigScherm: TForm;
     fLoginScherm: TForm;
     fHomeScherm: TForm;
+    procedure HuidigeGebruikerAfmelden;
   public
   end;
 
@@ -32,26 +33,9 @@
 
 procedure TfmProScanHoofdscherm.FormClose(Sender: TObject;
   var Action: TCloseAction);
-var
-  Service: GebruikerServiceSoap;
-  Request: GebruikerAfmeldenRequest;
-  Header: RequestHeader;
 begin
   inherited;
-  Service := GebruikerService.GetGebruikerServiceSoap();
-
-  Request := GebruikerAfmeldenRequest.Create;
-  Header := RequestHeader.Create;
-  try
-    Request.Initialen := fInitialen;
-    Request.LoginCode := fLoginCode;
-    Header.Initialen := fInitialen;
-    Request.Header := Header;
-
-    Service.GebruikerAfmelden(Request);
-  finally
-    Request.Free;
-  end;
+  HuidigeGebruikerAfmelden;
   Application.Terminate;
 end;
 
@@ -94,6 +78,7 @@
         ShowMessage('retry');
       end;
       if fHuidigScherm.ModalResult = mrOk then begin
+        HuidigeGebruikerAfmelden;
         fHuidigScherm := fLoginScherm;
       end;
     end;
@@ -102,4 +87,26 @@
   Self.Close;
 end;
 
+procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden;
+var
+  Service: GebruikerServiceSoap;
+  Request: GebruikerAfmeldenRequest;
+  Header: RequestHeader;
+begin
+  Service := GebruikerService.GetGebruikerServiceSoap();
+
+  Request := GebruikerAfmeldenRequest.Create;
+  Header := RequestHeader.Create;
+  try
+    Request.Initialen := fInitialen;
+    Request.LoginCode := fLoginCode;
+    Header.Initialen := fInitialen;
+    Request.Header := Header;
+
+    Service.GebruikerAfmelden(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
 end.