diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 2609ef1adf..ce79972e73 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -1950,7 +1950,6 @@ begin
         if QtGetFontFamilies(FontList, lpLogFont^.lfPitchAndFamily,
           lpLogFont^.lfFaceName, CharsetToQtCharSet(lpLogFont^.lfCharSet)) > 0 then
         begin
-          StylesList := QStringList_create();
           for i := 0 to FontList.Count - 1 do
           begin
             EnumLogFont.elfLogFont.lfFaceName := FontList[i];
@@ -1979,6 +1978,7 @@ begin
       finally
         FontList.free;
         QStringList_destroy(StylesList);
+        QStringList_destroy(ScriptList);
         CharSetList.Free;
       end;
     end;