diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 6d1c09bbe1..9931f7210e 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -4765,12 +4765,14 @@ end;
 
 constructor TQtStringList.Create;
 begin
+  inherited Create;
   FHandle := QStringList_create();
   FOwnHandle := True;
 end;
 
 constructor TQtStringList.Create(Source: QStringListH);
 begin
+  inherited Create;
   FHandle := Source;
   FOwnHandle := False;
 end;
diff --git a/lcl/interfaces/qt5/qtobjects.pas b/lcl/interfaces/qt5/qtobjects.pas
index 10b5637c89..7a84d48981 100644
--- a/lcl/interfaces/qt5/qtobjects.pas
+++ b/lcl/interfaces/qt5/qtobjects.pas
@@ -4762,12 +4762,14 @@ end;
 
 constructor TQtStringList.Create;
 begin
+  inherited Create;
   FHandle := QStringList_create();
   FOwnHandle := True;
 end;
 
 constructor TQtStringList.Create(Source: QStringListH);
 begin
+  inherited Create;
   FHandle := Source;
   FOwnHandle := False;
 end;