diff --git a/lcl/interfaces/qt5/qtprivate.pp b/lcl/interfaces/qt5/qtprivate.pp
index 2cf8c9192b..adb3db72ae 100644
--- a/lcl/interfaces/qt5/qtprivate.pp
+++ b/lcl/interfaces/qt5/qtprivate.pp
@@ -529,8 +529,7 @@ procedure TQtComboStrings.SetSorted(AValue: Boolean);
 begin
   if FSorted=AValue then Exit;
   FSorted:=AValue;
-  if FSorted then
-    Sort;
+  inherited Sorted:=FSorted;
 end;
 
 procedure TQtComboStrings.Put(Index: Integer; const S: string);
diff --git a/lcl/interfaces/qt6/qtprivate.pp b/lcl/interfaces/qt6/qtprivate.pp
index a771f6fd17..52155c6ca8 100644
--- a/lcl/interfaces/qt6/qtprivate.pp
+++ b/lcl/interfaces/qt6/qtprivate.pp
@@ -528,8 +528,7 @@ procedure TQtComboStrings.SetSorted(AValue: Boolean);
 begin
   if FSorted=AValue then Exit;
   FSorted:=AValue;
-  if FSorted then
-    Sort;
+  inherited Sorted:=FSorted;
 end;
 
 procedure TQtComboStrings.Put(Index: Integer; const S: string);