Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r25 -r29
Binary files differ
Index: AAPClient/UI/PalletScherm.dfm
===================================================================
diff -u -r28 -r29
--- AAPClient/UI/PalletScherm.dfm	(.../PalletScherm.dfm)	(revision 28)
+++ AAPClient/UI/PalletScherm.dfm	(.../PalletScherm.dfm)	(revision 29)
@@ -24,6 +24,7 @@
     Width = 121
     Height = 27
     TabOrder = 3
+    OnKeyPress = edtPalletKeyPress
   end
   inherited alAlgemeen: TActionList
     inherited actVolgende: TAction
Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r24 -r29
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 24)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 29)
@@ -15,6 +15,7 @@
     procedure FormShow(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
+    procedure edtPalletKeyPress(Sender: TObject; var Key: Char);
   private
     { Private declarations }
   public
@@ -40,6 +41,12 @@
   //
 end;
 
+procedure TfmPalletScherm.edtPalletKeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  Key := upcase(Key);
+end;
+
 procedure TfmPalletScherm.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := nil;
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r28 -r29
Binary files differ