* Add wsFullScreen to TWindowState. Fixes issue #40493

packages/rtl-objpas/src/inc/system.uitypes.pp

@@ -663,7 +663,7 @@ Type
 
   // Forms
   
-  TWindowState = (wsNormal, wsMinimized, wsMaximized);
+  TWindowState = (wsNormal, wsMinimized, wsMaximized, wsFullScreen);
   TWindowStates = Set of TWindowState;
   
   TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);