diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index f7088c3a0c..df52df067b 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -6463,8 +6463,8 @@ begin
 
   FillChar(Msg, SizeOf(Msg), #0);
   Msg.Msg := LM_SELCHANGE;
-
-  DeliverMessage(Msg);
+  if QListWidget_currentItem(QListWidgetH(Widget)) <> nil then
+    DeliverMessage(Msg);
 end;
 
 {------------------------------------------------------------------------------