diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index 330bc6e767..7f87059320 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -193,6 +193,8 @@ begin
       HideHint;
       FHintControl := Info.Control;
       FHintRect := FHintControl.BoundsRect;
+    end else begin
+      Exit;
     end;
     case FHintTimerType of
       ahttNone, ahttHideHint: