diff --git a/lcl/interfaces/qt/qtprivate.pp b/lcl/interfaces/qt/qtprivate.pp
index dd6f66dd96..a1f09684b4 100644
--- a/lcl/interfaces/qt/qtprivate.pp
+++ b/lcl/interfaces/qt/qtprivate.pp
@@ -455,10 +455,7 @@ begin
   inherited Sort;
 
   for I := 0 to Count - 1 do
-  begin
-    FOwner.removeItem(I);
-    FOwner.insertItem(I, Strings[I]);
-  end;
+    FOwner.setItemText(I, Strings[I]);
 end;
 
 { TQtListStrings }
@@ -520,10 +517,7 @@ begin
   inherited Sort;
 
   for I := 0 to Count - 1 do
-  begin
-    FOwner.removeItem(I);
-    FOwner.insertItem(I, Strings[I]);
-  end;
+    FOwner.setItemText(I, Strings[I]);
 end;
 
 end.