diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 87ac318c37..5f4e90df12 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -728,9 +728,7 @@ end;
 procedure TWin32WidgetSet.SetAppHandle(const AValue: THandle);
 begin
   // Do it only if handle is not yet created (for example for DLL initialization)
-  // if handle is already created we can't reassign it
-  if AppHandle = 0 then
-    FAppHandle := AValue;
+  FAppHandle := AValue;
 end;
 
 function TWin32WidgetSet.GetDotsPatternBitmap: HBitmap;