Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r77 -r83
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 77)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 83)
@@ -65,105 +65,72 @@
 begin
   fModalResult := mrNone;
 
-
   while fModalResult <> mrAbort do begin
     (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
     fModalResult := fHuidigScherm.ShowModal;
     fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
 
     //LoginScherm tonen
     if fHuidigScherm.ClassType = TfmLoginScherm then begin
-      if fHuidigScherm.ModalResult = mrLogin then begin
-        fHuidigScherm := fLoginScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrHome then begin
-        fHuidigScherm := fHomeScherm;
+      case fHuidigScherm.ModalResult of
+        mrLogin  : fHuidigScherm := fLoginScherm;
+        mrHome   : fHuidigScherm := fHomeScherm;
       end;
       continue;
     end;
 
     //HomeScherm tonen
     if fHuidigScherm.ClassType = TfmHomeScherm then begin
-      if fHuidigScherm.ModalResult = mrPallet then begin
-        fHuidigScherm := fPalletScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrNo then begin
-        ShowMessage('Hernoem Pallet');
-      end
-      else if fHuidigScherm.ModalResult = mrLogin then begin
-        //HuidigeGebruikerAfmelden;
-        fHuidigScherm := fLoginScherm;
+      case fHuidigScherm.ModalResult of
+        mrPallet : fHuidigScherm := fPalletScherm;
+        mrNo     : ShowMessage('Hernoem Pallet');
+        mrLogin  : fHuidigScherm := fLoginScherm;
       end;
       continue;
     end;
 
     //PalletScherm tonen
     if fHuidigScherm.ClassType = TfmPalletScherm then begin
-      if fHuidigScherm.ModalResult = mrHome then begin
-        fHuidigScherm := fHomeScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrPallet then begin
-        fHuidigScherm := fPalletScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrBestaandePallet then begin
-        fHuidigScherm := fBestaandePalletScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrDnaCode then begin
-        fHuidigScherm := fDnaCodeScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrAbort then begin
-        ShowMessage('DnaCodeGevuld scherm');
+      case fHuidigScherm.ModalResult of
+        mrHome            : fHuidigScherm := fHomeScherm;
+        mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm;
+        mrPallet          : fHuidigScherm := fPalletScherm;
+        mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
+        mrAbort           : ShowMessage('DnaCodeGevuld scherm');
       end;
       continue;
     end;
 
     //BestaandePalletScherm tonen
     if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
-      if fHuidigScherm.ModalResult = mrHome then begin
-        fHuidigScherm := fHomeScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrPallet then begin
-        fHuidigScherm := fPalletScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrRetry then begin
-        ShowMessage('DnaCodeGevuld scherm');
-      end
-      else if fHuidigScherm.ModalResult = mrDnaCode then begin
-        fHuidigScherm := fDnaCodeScherm;
+      case fHuidigScherm.ModalResult of
+        mrHome            : fHuidigScherm := fHomeScherm;
+        mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm;
+        mrPallet          : fHuidigScherm := fPalletScherm;
+        mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
+        mrRetry           : ShowMessage('DnaCodeGevuld scherm');
       end;
       continue;
     end;
 
     //DnaCodeScherm tonen
     if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
-      if fHuidigScherm.ModalResult = mrHome then begin
-        fHuidigScherm := fHomeScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrPallet then begin
-        fHuidigScherm := fPalletScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrDnaCode then begin
-        fHuidigScherm := fDnaCodeScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrInfoLog then begin
-        fHuidigScherm := fInfoLogScherm;
+      case fHuidigScherm.ModalResult of
+        mrHome            : fHuidigScherm := fHomeScherm;
+        mrPallet          : fHuidigScherm := fPalletScherm;
+        mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
+        mrInfoLog         : fHuidigScherm := fInfoLogScherm;
       end;
       continue;
     end;
 
     //InfoLogScherm tonen
     if fHuidigScherm.ClassType = TfmInfoLogScherm then begin
-      if fHuidigScherm.ModalResult = mrYes then begin
-        fHuidigScherm := fInfoLogScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrDnaCode then begin
-        fHuidigScherm := fDnaCodeScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrNone then begin
-        fHuidigScherm := fInfoLogScherm;
-      end
-      else if fHuidigScherm.ModalResult = mrIgnore then begin
-        fHuidigScherm := fInfoLogScherm;
+      case fHuidigScherm.ModalResult of
+        mrYes            : fHuidigScherm := fInfoLogScherm;
+        mrNone           : fHuidigScherm := fInfoLogScherm;
+        mrDnaCode        : fHuidigScherm := fDnaCodeScherm;
+        mrIgnore         : fHuidigScherm := fInfoLogScherm;
       end;
       continue;
     end;