Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r101 -r107
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 101)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 107)
@@ -24,6 +24,7 @@
   private
     procedure SetStatusButtonRechtsOnderaan;
     procedure SetContext;
+    procedure HuidigeGebruikerAfmelden;
   public
   end;
 
@@ -38,14 +39,16 @@
 {$R *.dfm}
 
 procedure TfmLoginScherm.actAfsluitenExecute(Sender: TObject);
+begin
+  HuidigeGebruikerAfmelden;
+end;
+
+procedure TfmLoginScherm.HuidigeGebruikerAfmelden;
 var
   Service: GebruikerServiceSoap;
   Request: GebruikerAfmeldenRequest;
   Header: RequestHeader;
 begin
-  inherited;
-  SetContext;
-
   Service := GebruikerService.GetGebruikerServiceSoap();
 
   Request := GebruikerAfmeldenRequest.Create;
@@ -57,7 +60,6 @@
     Request.Header := Header;
 
     Service.GebruikerAfmelden(Request);
-    Self.ModalResult := mrAbort;
   finally
     Request.Free;
   end;
@@ -119,6 +121,7 @@
 
 procedure TfmLoginScherm.FormShow(Sender: TObject);
 begin
+  HuidigeGebruikerAfmelden;
   actRechtsOnder := actVolgende;
   actLinksOnder := actAfsluiten;
   btnRechtsOnder.Action := actRechtsOnder;