diff --git a/lcl/interfaces/qt5/qtwinapi.inc b/lcl/interfaces/qt5/qtwinapi.inc
index 23b452f16a..67b47c210e 100644
--- a/lcl/interfaces/qt5/qtwinapi.inc
+++ b/lcl/interfaces/qt5/qtwinapi.inc
@@ -1553,9 +1553,9 @@ var
 begin
   Desktop := QApplication_desktop();
   Result := True;
-  for i := 0 to QDesktopWidget_numScreens(Desktop) - 1 do
+  for i := 1 to QDesktopWidget_numScreens(Desktop) do
   begin
-    Result := Result and lpfnEnum(i + 1, 0, nil, dwData);
+    Result := lpfnEnum(i, 0, nil, dwData);
     if not Result then break;
   end;
 end;
diff --git a/lcl/interfaces/qt6/qtwinapi.inc b/lcl/interfaces/qt6/qtwinapi.inc
index 4424b1cdd7..9e3de22d21 100644
--- a/lcl/interfaces/qt6/qtwinapi.inc
+++ b/lcl/interfaces/qt6/qtwinapi.inc
@@ -1557,9 +1557,9 @@ begin
   Desktop := QGuiApplication_primaryScreen();
   Result := True;
   QScreen_virtualSiblings(Desktop, @AArray);
-  for i := 0 to length(AArray) - 1 do
+  for i := 1 to length(AArray) do
   begin
-    Result := Result and lpfnEnum(i + 1, 0, nil, dwData);
+    Result := lpfnEnum(i, 0, nil, dwData);
     if not Result then break;
   end;
 end;