--- Merging r36663 into '.':

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

# revisions: 36663


git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_0@37101 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 2 deletions

diff --git a/packages/rtl-console/src/win/winevent.pp b/packages/rtl-console/src/win/winevent.pp
index 8eb7277be7..ef90a075cf 100644
--- a/packages/rtl-console/src/win/winevent.pp
+++ b/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;