diff --git a/lcl/interfaces/qt5/qtobjects.pas b/lcl/interfaces/qt5/qtobjects.pas
index 9bab090e7d..878ce36a6a 100644
--- a/lcl/interfaces/qt5/qtobjects.pas
+++ b/lcl/interfaces/qt5/qtobjects.pas
@@ -2386,7 +2386,7 @@ begin
   FreeAndNil(vBrush);
   // vPen.FHandle := nil;
   FreeAndNil(vPen);
-  if vRegion.FHandle <> nil then
+  if Assigned(vRegion) and Assigned(vRegion.FHandle) then
   begin
     QRegion_destroy(vRegion.FHandle);
     vRegion.FHandle := nil;
diff --git a/lcl/interfaces/qt6/qtobjects.pas b/lcl/interfaces/qt6/qtobjects.pas
index b4efa8b107..08d63d49c2 100644
--- a/lcl/interfaces/qt6/qtobjects.pas
+++ b/lcl/interfaces/qt6/qtobjects.pas
@@ -2451,7 +2451,7 @@ begin
   FreeAndNil(vBrush);
   // vPen.FHandle := nil;
   FreeAndNil(vPen);
-  if vRegion.FHandle <> nil then
+  if Assigned(vRegion) and Assigned(vRegion.FHandle) then
   begin
     QRegion_destroy(vRegion.FHandle);
     vRegion.FHandle := nil;