diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 63e7a1821b..423643f5ac 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -517,6 +517,9 @@ var
 begin
   // Some changes don't require RecreateWnd
 
+  if (AOldFormStyle in fsAllStayOnTop) and (AFormStyle in fsAllStayOnTop) then
+    Exit;
+
   // From normal to StayOnTop
   if (AOldFormStyle = fsNormal) and (AFormStyle in fsAllStayOnTop) then 
   begin