diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp
index c83519f690..2b3ac68dd4 100644
--- a/lcl/interfaces/qt/qtint.pp
+++ b/lcl/interfaces/qt/qtint.pp
@@ -318,7 +318,7 @@ uses
 ////////////////////////////////////////////////////
   Graphics, buttons, Menus,
   // Bindings
-  qtwidgets, qtobjects, qtsystemtrayicon;
+  QtWSFactory, qtwidgets, qtobjects, qtsystemtrayicon;
 
 function DTFlagsToQtFlags(const Flags: Cardinal): Integer;
 begin
diff --git a/lcl/interfaces/qt/qtwsfactory.pas b/lcl/interfaces/qt/qtwsfactory.pas
index e98f0ff192..6d7594ed16 100644
--- a/lcl/interfaces/qt/qtwsfactory.pas
+++ b/lcl/interfaces/qt/qtwsfactory.pas
@@ -556,5 +556,14 @@ begin
   Result := False;
 end;
 
+procedure Init;
+begin
+  // Keep a dummy Init to hide compiler messages "unit not used".
+  // The unit is used by the "alias" functions.
+end;
+
+initialization
+  Init;
+
 end.