diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index 9f770d76a5..cfb69b4196 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -546,7 +546,9 @@ begin
     CocoaWidgetSet.ReleaseToCollect(idx);
   end;
   {$ifdef COCOALOOPNATIVE}
+    if CocoaWidgetSet.FTerminating then stop(nil);
   except
+    if CocoaWidgetSet.FTerminating then stop(nil);
     if Assigned(Application) and Application.CaptureExceptions then
       Application.HandleException(Application)
     else