diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index 7eab3bfc12..177af50412 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -211,7 +211,7 @@ begin
           if (FHintTimerType = ahttNone) or (FHintWindow = nil) or not FHintWindow.Visible then
             StartHintTimer(HintPause, ahttShowHint);
         end;
-      ahttShowHint:
+      ahttShowHint, ahttReshowHint:
         StartHintTimer(HintPause, ahttShowHint);
     end;
   end
@@ -765,10 +765,8 @@ procedure TApplication.DoOnMouseMove;
 var
   CursorPos: TPoint;
 begin
-  if not GetCursorPos(CursorPos) then
-    Exit;
-
-  ActivateHint(CursorPos, True);
+  if GetCursorPos(CursorPos) then
+    ActivateHint(CursorPos, True);
 end;
 
 {------------------------------------------------------------------------------