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