Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r314 -r327
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 314)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 327)
@@ -163,7 +163,10 @@
 
 procedure TfmPalletScherm.SetContext;
 begin
-  UiContext.Pallet := edtPallet.Text;
+  if IsKaderdeurLocatie(edtPallet.Text) then
+    UiContext.Pallet := edtPallet.Text
+  else
+    UiContext.Pallet := UpperCase(edtPallet.Text);
 end;
 
 procedure TfmPalletScherm.SetModus(GescandeInput: string);
@@ -179,7 +182,7 @@
 function TfmPalletScherm.IsKaderdeurLocatie(GescandeInput: string): boolean;
 begin
   result := false;
-  if TRegEx.IsMatch(UpperCase(GescandeInput),'10K..T0.') then
+  if TRegEx.IsMatch(UpperCase(GescandeInput),'10[kK]..[tT]0.') then
     result := true;
 end;
 
Index: AAPClient/UI/PalletScherm.dfm
===================================================================
diff -u -r253 -r327
--- AAPClient/UI/PalletScherm.dfm	(.../PalletScherm.dfm)	(revision 253)
+++ AAPClient/UI/PalletScherm.dfm	(.../PalletScherm.dfm)	(revision 327)
@@ -2,8 +2,6 @@
   ActiveControl = edtPallet
   Caption = 'fmPalletScherm'
   OnActivate = FormActivate
-  ExplicitWidth = 480
-  ExplicitHeight = 640
   PixelsPerInch = 96
   TextHeight = 19
   object imgPallet: TImage [0]
@@ -398,7 +396,6 @@
     Height = 47
     Alignment = taCenter
     AutoSize = False
-    CharCase = ecUpperCase
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -32