Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r70 -r71
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 70)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 71)
@@ -73,14 +73,13 @@
 
   while fModalResult <> mrAbort do begin
     (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-    //LoginScherm tonen
+    fModalResult := fHuidigScherm.ShowModal;
+    fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
 
+    //LoginScherm tonen
     if fHuidigScherm.ClassType = TfmLoginScherm then begin
-      (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      fModalResult := fHuidigScherm.ShowModal;
-      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrRetry then begin
-        fModalResult := fHuidigScherm.ShowModal;
+        fHuidigScherm := fLoginScherm;
       end
       else if fHuidigScherm.ModalResult = mrOk then begin
         fHuidigScherm := fHomeScherm;
@@ -90,9 +89,6 @@
 
     //HomeScherm tonen
     if fHuidigScherm.ClassType = TfmHomeScherm then begin
-      (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      fModalResult := fHuidigScherm.ShowModal;
-      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fPalletScherm;
       end
@@ -108,9 +104,6 @@
 
     //PalletScherm tonen
     if fHuidigScherm.ClassType = TfmPalletScherm then begin
-      (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      fModalResult := fHuidigScherm.ShowModal;
-      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end
@@ -131,9 +124,6 @@
 
     //BestaandePalletScherm tonen
     if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
-      (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      fModalResult := fHuidigScherm.ShowModal;
-      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end
@@ -151,9 +141,6 @@
 
     //DnaCodeScherm tonen
     if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
-      (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      fModalResult := fHuidigScherm.ShowModal;
-      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end
@@ -171,9 +158,6 @@
 
     //InfoLogScherm tonen
     if fHuidigScherm.ClassType = TfmInfoLogScherm then begin
-      (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-      fModalResult := fHuidigScherm.ShowModal;
-      fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fInfoLogScherm;
       end