--- Merging r36663 into '.':

U    packages/rtl-console/src/win/winevent.pp
--- Recording mergeinfo for merge of r36663 into '.':
 U   .

# revisions: 36663

git-svn-id: branches/fixes_3_0@37101 -

packages/rtl-console/src/win/winevent.pp

@@ -203,9 +203,10 @@ interface
               { mouse event can be disabled by mouse.inc code
                 in DoneMouse
                 so use a key event instead PM }
-              WriteConsoleInput(StdInputHandle,ir,1,written);
+              { 20170707 mantis #32096, only wait if really written}
+              if WriteConsoleInput(StdInputHandle,ir,1,written) then
               { wait, til the thread is ready }
-              WaitForSingleObject(EventThreadHandle,INFINITE);
+                WaitForSingleObject(EventThreadHandle,INFINITE);
               CloseHandle(EventThreadHandle);
            end;
       end;