Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r79 -r80
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 79)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 80)
@@ -24,9 +24,8 @@
     procedure actPalletExecute(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure btnInfoClick(Sender: TObject);
-    procedure edtDnaCodeKeyDown(Sender: TObject; var Key: Word;
-      Shift: TShiftState);
     procedure actVolgendeExecute(Sender: TObject);
+    procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
   private
     procedure MeldDnaCodeAf();
   public
@@ -74,13 +73,12 @@
     Self.ModalResult := mrInfoLog;
 end;
 
-procedure TfmDnaCodeScherm.edtDnaCodeKeyDown(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
+procedure TfmDnaCodeScherm.edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
 begin
   inherited;
   if ord(Key) = VK_RETURN then
   begin
-    Key := Word(#0);
+    Key := #0;
     MeldDnaCodeAf;
   end;
 end;
Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r79 -r80
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 79)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 80)
@@ -75,7 +75,7 @@
     Height = 27
     CharCase = ecUpperCase
     TabOrder = 2
-    OnKeyDown = edtDnaCodeKeyDown
+    OnKeyPress = edtDnaCodeKeyPress
   end
   inherited btnRechtsOnder: TButton
     TabOrder = 3