Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r34 -r35
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 34)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 35)
@@ -98,6 +98,18 @@
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
       end;
+      if fHuidigScherm.ModalResult = mrRetry then begin
+        fHuidigScherm := fPalletScherm;
+      end;
+      if fHuidigScherm.ModalResult = mrNo then begin
+        ShowMessage('Bestaande pallet scherm');
+      end;
+      if fHuidigScherm.ModalResult = mrOk then begin
+        ShowMessage('DnaCodeLeeg scherm');
+      end;
+      if fHuidigScherm.ModalResult = mrAbort then begin
+        ShowMessage('DnaCodeGevuld scherm');
+      end;
 
 
       continue;