Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u -r37 -r44
Binary files differ
Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r43 -r44
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 43)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 44)
@@ -72,6 +72,7 @@
     Top = 65
     Width = 109
     Height = 27
+    CharCase = ecUpperCase
     TabOrder = 3
   end
   inherited alAlgemeen: TActionList
Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r33 -r44
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 33)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 44)
@@ -14,7 +14,6 @@
     edtPincode: TEdit;
     lblInitialen: TLabel;
     edtInitialen: TEdit;
-    procedure edtInitialenKeyPress(Sender: TObject; var Key: Char);
     procedure edtPincodeKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
     procedure edtInitialenKeyUp(Sender: TObject; var Key: Word;
@@ -99,12 +98,6 @@
   end;
 end;
 
-procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);
-begin
-  inherited;
-  Key := upcase(Key);
-end;
-
 procedure TfmLoginScherm.edtInitialenKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
Index: AAPClient/UI/LoginScherm.dfm
===================================================================
diff -u -r27 -r44
--- AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 27)
+++ AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 44)
@@ -38,6 +38,7 @@
     Top = 123
     Width = 121
     Height = 27
+    NumbersOnly = True
     TabOrder = 1
     Text = '0030'
     OnKeyUp = edtPincodeKeyUp
@@ -47,9 +48,9 @@
     Top = 90
     Width = 121
     Height = 27
+    CharCase = ecUpperCase
     TabOrder = 0
     Text = 'NBO'
-    OnKeyPress = edtInitialenKeyPress
     OnKeyUp = edtInitialenKeyUp
   end
   inherited btnRechtsOnder: TButton
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r43 -r44
Binary files differ
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r43 -r44
Binary files differ
Index: AAPClient/UI/PalletScherm.dfm
===================================================================
diff -u -r29 -r44
--- AAPClient/UI/PalletScherm.dfm	(.../PalletScherm.dfm)	(revision 29)
+++ AAPClient/UI/PalletScherm.dfm	(.../PalletScherm.dfm)	(revision 44)
@@ -23,8 +23,8 @@
     Top = 151
     Width = 121
     Height = 27
+    CharCase = ecUpperCase
     TabOrder = 3
-    OnKeyPress = edtPalletKeyPress
   end
   inherited alAlgemeen: TActionList
     inherited actVolgende: TAction
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;