Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r18 -r19
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 18)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 19)
@@ -17,6 +17,7 @@
     fHuidigScherm: TForm;
     fLoginScherm: TForm;
     fHomeScherm: TForm;
+    fPalletScherm: TForm;
     procedure HuidigeGebruikerAfmelden;
   public
   end;
@@ -27,7 +28,7 @@
 implementation
 
 uses
-  LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm;
+  LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm;
 
 {$R *.dfm}
 
@@ -45,6 +46,7 @@
 begin
   fLoginScherm := TfmLoginScherm.Create(Self);
   fHomeScherm := TfmHomeScherm.Create(Self);
+  fPalletScherm := TfmPalletScherm.Create(Self);
   fHuidigScherm := fLoginScherm;
 
   Self.Show;
@@ -78,7 +80,7 @@
     if fHuidigScherm.ClassType = TfmHomeScherm then begin
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrYes then begin
-        ShowMessage('Afmelden Producten');
+        fHuidigScherm := fPalletScherm;
       end;
       if fHuidigScherm.ModalResult = mrNo then begin
         ShowMessage('Hernoem Pallet');
@@ -89,6 +91,15 @@
       end;
       continue;
     end;
+
+    //PalletScherm tonen
+    if fHuidigScherm.ClassType = TfmPalletScherm then begin
+      fModalResult := fHuidigScherm.ShowModal;
+
+
+      continue;
+    end;
+
   end;
 
   Self.Close;