diff --git a/components/lazreport/source/lr_desgn.pas b/components/lazreport/source/lr_desgn.pas
index b5e32cd0b4..abdba02dfa 100644
--- a/components/lazreport/source/lr_desgn.pas
+++ b/components/lazreport/source/lr_desgn.pas
@@ -1097,6 +1097,9 @@ begin
 
   DeleteObject(R);
   DeleteObject(AClipRgn);
+  if AClipRgn=ClipRgn then
+    ClipRgn := 0;
+
   SelectClipRgn(Canvas.Handle, 0);
 
   if not Down then