Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r72 -r73
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 72)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 73)
@@ -73,10 +73,10 @@
 
     //LoginScherm tonen
     if fHuidigScherm.ClassType = TfmLoginScherm then begin
-      if fHuidigScherm.ModalResult = mrRetry then begin
+      if fHuidigScherm.ModalResult = mrLogin then begin
         fHuidigScherm := fLoginScherm;
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrHome then begin
         fHuidigScherm := fHomeScherm;
       end;
       continue;