Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r108 -r109
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 108)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 109)
@@ -73,8 +73,6 @@
   Response: GebruikerAanmeldenResponse;
   Header: RequestHeader;
 begin
-  SetContext;
-
   Service := GebruikerService.GetGebruikerServiceSoap();
   // request opbouwen
   Request := GebruikerAanmeldenRequest.Create;
@@ -92,6 +90,7 @@
         Self.ModalResult := mrLogin;
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
       end else begin
+        SetContext;
         lblGebruiker.Caption := UiContext.Initialen;
         lblGebruiker.Visible := true;
         Self.ModalResult := mrHome;
@@ -108,15 +107,13 @@
   Shift: TShiftState);
 begin
   inherited;
-  SetContext;
   SetStatusButtonRechtsOnderaan;
 end;
 
 procedure TfmLoginScherm.edtPincodeKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   inherited;
-  SetContext;
   SetStatusButtonRechtsOnderaan;
 end;