diff --git a/lcl/interfaces/cocoa/cocoawsforms.pas b/lcl/interfaces/cocoa/cocoawsforms.pas
index 362cae6522..b6d7414a14 100644
--- a/lcl/interfaces/cocoa/cocoawsforms.pas
+++ b/lcl/interfaces/cocoa/cocoawsforms.pas
@@ -729,10 +729,11 @@ begin
     if Assigned(win.parentWindow) then
       win.parentWindow.removeChildWindow(win);
     win.close;
+    win.setContentView(nil);
+    win.release;
   end;
 
   TCocoaWSWinControl.DestroyHandle(AWinControl);
-  if Assigned(win) then win.release;
 end;