Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r35 -r37
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 35)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 37)
@@ -18,6 +18,7 @@
     fLoginScherm: TForm;
     fHomeScherm: TForm;
     fPalletScherm: TForm;
+    fBestaandePalletScherm: TForm;
     procedure HuidigeGebruikerAfmelden;
   public
   end;
@@ -28,7 +29,8 @@
 implementation
 
 uses
-  LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm;
+  LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
+  BestaandePalletscherm;
 
 {$R *.dfm}
 
@@ -47,6 +49,7 @@
   fLoginScherm := TfmLoginScherm.Create(Self);
   fHomeScherm := TfmHomeScherm.Create(Self);
   fPalletScherm := TfmPalletScherm.Create(Self);
+  fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self);
   fHuidigScherm := fLoginScherm;
 
   Self.Show;
@@ -102,16 +105,23 @@
         fHuidigScherm := fPalletScherm;
       end;
       if fHuidigScherm.ModalResult = mrNo then begin
-        ShowMessage('Bestaande pallet scherm');
+        fHuidigScherm := fBestaandePalletScherm;
       end;
       if fHuidigScherm.ModalResult = mrOk then begin
         ShowMessage('DnaCodeLeeg scherm');
       end;
       if fHuidigScherm.ModalResult = mrAbort then begin
         ShowMessage('DnaCodeGevuld scherm');
       end;
+      continue;
+    end;
 
-
+    //BestaandePalletScherm tonen
+    if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
+      fModalResult := fHuidigScherm.ShowModal;
+      if fHuidigScherm.ModalResult = mrYes then begin
+        fHuidigScherm := fHomeScherm;
+      end;
       continue;
     end;