Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r75 -r76
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 75)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 76)
@@ -84,7 +84,7 @@
 
     //HomeScherm tonen
     if fHuidigScherm.ClassType = TfmHomeScherm then begin
-      if fHuidigScherm.ModalResult = mrYes then begin
+      if fHuidigScherm.ModalResult = mrPallet then begin
         fHuidigScherm := fPalletScherm;
       end
       else if fHuidigScherm.ModalResult = mrNo then begin
@@ -99,16 +99,16 @@
 
     //PalletScherm tonen
     if fHuidigScherm.ClassType = TfmPalletScherm then begin
-      if fHuidigScherm.ModalResult = mrYes then begin
+      if fHuidigScherm.ModalResult = mrHome then begin
         fHuidigScherm := fHomeScherm;
       end
-      else if fHuidigScherm.ModalResult = mrRetry then begin
+      else if fHuidigScherm.ModalResult = mrPallet then begin
         fHuidigScherm := fPalletScherm;
       end
-      else if fHuidigScherm.ModalResult = mrNo then begin
+      else if fHuidigScherm.ModalResult = mrBestaandePallet then begin
         fHuidigScherm := fBestaandePalletScherm;
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrDnaCode then begin
         fHuidigScherm := fDnaCodeScherm;
       end
       else if fHuidigScherm.ModalResult = mrAbort then begin