Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r38 -r44
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 38)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 44)
@@ -15,7 +15,6 @@
     procedure FormShow(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
-    procedure edtPalletKeyPress(Sender: TObject; var Key: Char);
   private
     { Private declarations }
   public
@@ -102,12 +101,6 @@
 
 end;
 
-procedure TfmPalletScherm.edtPalletKeyPress(Sender: TObject; var Key: Char);
-begin
-  inherited;
-  Key := upcase(Key);
-end;
-
 procedure TfmPalletScherm.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := nil;