Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r39 -r41
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 39)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 41)
@@ -128,11 +128,11 @@
       else if fHuidigScherm.ModalResult = mrOk then begin
         fHuidigScherm := fPalletScherm;
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
-        ShowMessage('DnaCodeLeeg scherm');
-      end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrRetry then begin
         ShowMessage('DnaCodeGevuld scherm');
+      end
+      else if fHuidigScherm.ModalResult = mrCancel then begin
+        ShowMessage('DnaCodeLeeg scherm');
       end;
       continue;
     end;