Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r67 -r73
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 67)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 73)
@@ -33,7 +33,7 @@
 implementation
 
 uses
-  GebruikerService;
+  GebruikerService, UiContext;
 
 {$R *.dfm}
 
@@ -86,12 +86,12 @@
     Response := Service.GebruikerAanmelden(Request);
     try
       if Response.Header.Status <> '200' then begin
-        Self.ModalResult := mrRetry;
+        Self.ModalResult := mrLogin;
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
       end else begin
         lblGebruiker.Caption := UiContext.Initialen;
         lblGebruiker.Visible := true;
-        Self.ModalResult := mrOk;
+        Self.ModalResult := mrHome;
       end;
     finally
       Response.Free;