Index: ProScan/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r396 -r421
--- ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 396)
+++ ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 421)
@@ -80,9 +80,10 @@
            fEnkelDezeDnaCode := edtOudeCode.Text
         end;
       end;
-      if StartsText('K',edtOudeCode.Text) then
+      if StartsText('K',edtOudeCode.Text) then begin
         fEnkelDezeDnaCode := edtOudeCode.Text;
         lblNieuweCode.Caption := 'Scan nieuwe kaderdeurlocatie';
+      end;
       if fEnkelDezeDnaCode = '' then begin
         HernoemPallet(edtOudeCode.Text,'');
         pcHernoemPallet.ActivePageIndex := 1;