Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r38 -r39
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 38)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 39)
@@ -71,8 +71,8 @@
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrRetry then begin
         fModalResult := fHuidigScherm.ShowModal;
-      end;
-      if fHuidigScherm.ModalResult = mrOk then begin
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
         fInitialen := (fHuidigScherm as TfmLoginScherm).GeefInitialen();
         fLoginCode := (fHuidigScherm as TfmLoginScherm).GeefLoginCode();
         fHuidigScherm := fHomeScherm;
@@ -85,11 +85,11 @@
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fPalletScherm;
-      end;
-      if fHuidigScherm.ModalResult = mrNo then begin
+      end
+      else if fHuidigScherm.ModalResult = mrNo then begin
         ShowMessage('Hernoem Pallet');
-      end;
-      if fHuidigScherm.ModalResult = mrOk then begin
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
         HuidigeGebruikerAfmelden;
         fHuidigScherm := fLoginScherm;
       end;
@@ -101,18 +101,18 @@
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
-      end;
-      if fHuidigScherm.ModalResult = mrRetry then begin
+      end
+      else if fHuidigScherm.ModalResult = mrRetry then begin
         fHuidigScherm := fPalletScherm;
-      end;
-      if fHuidigScherm.ModalResult = mrNo then begin
+      end
+      else if fHuidigScherm.ModalResult = mrNo then begin
         fHuidigePallet := (fHuidigScherm as TfmPalletScherm).edtPallet.Text;
         fHuidigScherm := fBestaandePalletScherm;
-      end;
-      if fHuidigScherm.ModalResult = mrOk then begin
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
         ShowMessage('DnaCodeLeeg scherm');
-      end;
-      if fHuidigScherm.ModalResult = mrAbort then begin
+      end
+      else if fHuidigScherm.ModalResult = mrAbort then begin
         ShowMessage('DnaCodeGevuld scherm');
       end;
       continue;
@@ -124,14 +124,14 @@
       fModalResult := fHuidigScherm.ShowModal;
       if fHuidigScherm.ModalResult = mrYes then begin
         fHuidigScherm := fHomeScherm;
-      end;
-      if fHuidigScherm.ModalResult = mrOk then begin
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
         fHuidigScherm := fPalletScherm;
-      end;
-      if fHuidigScherm.ModalResult = mrOk then begin
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
         ShowMessage('DnaCodeLeeg scherm');
-      end;
-      if fHuidigScherm.ModalResult = mrOk then begin
+      end
+      else if fHuidigScherm.ModalResult = mrOk then begin
         ShowMessage('DnaCodeGevuld scherm');
       end;
       continue;