diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 4fbe69eb92..1d4a68e23b 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -425,6 +425,9 @@ begin
 
   SendMessage(Wnd, WM_SETICON, ICON_BIG, LPARAM(Big));
   SetClassLong(Wnd, GCL_HICON, LONG(Big));
+  // for some reason sometimes frame does not invalidate itself. lets ask it to invalidate always
+  Windows.RedrawWindow(Wnd, nil, 0,
+    RDW_INVALIDATE or RDW_FRAME or RDW_NOCHILDREN or RDW_ERASE);
 end;
 
 class procedure TWin32WSCustomForm.SetShowInTaskbar(const AForm: TCustomForm;