diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 59f1cf94b5..da8a57db59 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -4797,7 +4797,7 @@ var
   Event: QLCLMessageEventH;
 begin
   Result := 0;
-  if HandleWnd <> 0 then
+  if (HandleWnd <> 0) and (Widget.Widget <> nil) then
   begin
     Event := QLCLMessageEvent_create(QEventLCLMessage, Msg, wParam, lParam, 0);
     try