Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r76 -r77
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 76)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 77)
@@ -119,33 +119,33 @@
 
     //BestaandePalletScherm tonen
     if fHuidigScherm.ClassType = TfmBestaandePalletScherm then begin
-      if fHuidigScherm.ModalResult = mrYes then begin
+      if fHuidigScherm.ModalResult = mrHome then begin
         fHuidigScherm := fHomeScherm;
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrPallet then begin
         fHuidigScherm := fPalletScherm;
       end
       else if fHuidigScherm.ModalResult = mrRetry then begin
         ShowMessage('DnaCodeGevuld scherm');
       end
-      else if fHuidigScherm.ModalResult = mrCancel then begin
+      else if fHuidigScherm.ModalResult = mrDnaCode then begin
         fHuidigScherm := fDnaCodeScherm;
       end;
       continue;
     end;
 
     //DnaCodeScherm tonen
     if fHuidigScherm.ClassType = TfmDnaCodeScherm then begin
-      if fHuidigScherm.ModalResult = mrYes then begin
+      if fHuidigScherm.ModalResult = mrHome then begin
         fHuidigScherm := fHomeScherm;
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrPallet then begin
         fHuidigScherm := fPalletScherm;
       end
-      else if fHuidigScherm.ModalResult = mrNone then begin
+      else if fHuidigScherm.ModalResult = mrDnaCode then begin
         fHuidigScherm := fDnaCodeScherm;
       end
-      else if fHuidigScherm.ModalResult = mrClose then begin
+      else if fHuidigScherm.ModalResult = mrInfoLog then begin
         fHuidigScherm := fInfoLogScherm;
       end;
       continue;
@@ -156,7 +156,7 @@
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fInfoLogScherm;
       end
-      else if fHuidigScherm.ModalResult = mrOk then begin
+      else if fHuidigScherm.ModalResult = mrDnaCode then begin
         fHuidigScherm := fDnaCodeScherm;
       end
       else if fHuidigScherm.ModalResult = mrNone then begin