diff --git a/lcl/interfaces/cocoa/cocoawsforms.pas b/lcl/interfaces/cocoa/cocoawsforms.pas
index a592a07d36..362cae6522 100644
--- a/lcl/interfaces/cocoa/cocoawsforms.pas
+++ b/lcl/interfaces/cocoa/cocoawsforms.pas
@@ -732,6 +732,7 @@ begin
   end;
 
   TCocoaWSWinControl.DestroyHandle(AWinControl);
+  if Assigned(win) then win.release;
 end;