diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc
index c0c118f468..39f5695685 100644
--- a/lcl/include/canvas.inc
+++ b/lcl/include/canvas.inc
@@ -1545,6 +1545,8 @@ destructor TCanvas.Destroy;
 begin
 //DebugLn('[TCanvas.Destroy] ',ClassName,'  Self=',DbgS(Self));
   Handle := 0;
+  if FClipRegion <> nil then {issue #24980 looks like TFPCustomCanvas bug}
+    FreeThenNil(FClipRegion);
   FreeThenNil(FRegion);
   FreeThenNil(FSavedHandleStates);
   if FLock <> 0 then