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;