Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r88 -r89
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 88)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 89)
@@ -70,68 +70,15 @@
     fModalResult := fHuidigScherm.ShowModal;
     fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
 
-    //LoginScherm tonen
-    if fHuidigScherm.ClassType = TfmLoginScherm then begin
-      case fHuidigScherm.ModalResult of
-        mrLogin  : fHuidigScherm := fLoginScherm;
-        mrHome   : fHuidigScherm := fHomeScherm;
-      end;
-      continue;
+    case fHuidigScherm.ModalResult of
+      mrLogin           : fHuidigScherm := fLoginScherm;
+      mrHome            : fHuidigScherm := fHomeScherm;
+      mrPallet          : fHuidigScherm := fPalletScherm;
+      mrNo              : ShowMessage('Hernoem Pallet');
+      mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm;
+      mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
+      mrInfoLog         : fHuidigScherm := fInfoLogScherm;
     end;
-
-    //HomeScherm tonen
-    if fHuidigScherm.ClassType = TfmHomeScherm then begin
-      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
-      case fHuidigScherm.ModalResult of
-        mrHome            : fHuidigScherm := fHomeScherm;
-        mrBestaandePallet : fHuidigScherm := fBestaandePalletScherm;
-        mrPallet          : fHuidigScherm := fPalletScherm;
-        mrDnaCode         : fHuidigScherm := fDnaCodeScherm;
-      end;
-      continue;
-    end;
-
-    //BestaandePalletScherm tonen
-    if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
-      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
-      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
-      case fHuidigScherm.ModalResult of
-        mrHome           : fHuidigScherm := fHomeScherm;
-        mrDnaCode        : fHuidigScherm := fDnaCodeScherm;
-      end;
-      continue;
-    end;
-
   end;
 
   Self.Close;