diff --git a/lcl/grids.pas b/lcl/grids.pas
index 1cd6c1c1e7..3b794d21d9 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -7847,7 +7847,12 @@ begin
 end;
 
 procedure TCustomGrid.KeyPress(var Key: char);
+const
+  keypressBusy:boolean=false;
 begin
+  if keypressbusy then
+    exit;
+  keypressBusy := true;
   inherited KeyPress(Key);
   if not EditorKey then
     // we are interested in these keys only if they came from the grid
@@ -7862,6 +7867,7 @@ begin
         Key := #0;
       end;
     end;
+  keypressBusy := false;
 end;
 
 { Convert a physical Mouse coordinate into a physical cell coordinate }
diff --git a/lcl/interfaces/win32/win32wsgrids.pp b/lcl/interfaces/win32/win32wsgrids.pp
index 3840446bdf..aa45f79e7f 100644
--- a/lcl/interfaces/win32/win32wsgrids.pp
+++ b/lcl/interfaces/win32/win32wsgrids.pp
@@ -80,7 +80,7 @@ begin
     if S='' then WChar := WPARAM(Ord('?'))
     else         WChar := WPARAM(S[1]);
   end;
-  PostMessageW(AEditor.Handle, WM_CHAR, WChar, 0);
+  SendMessageW(AEditor.Handle, WM_CHAR, WChar, 0);
 end;
 
 end.