diff --git a/lcl/interfaces/cocoa/cocoaobject.inc b/lcl/interfaces/cocoa/cocoaobject.inc
index 1d1a278ad1..60a5d81c0e 100644
--- a/lcl/interfaces/cocoa/cocoaobject.inc
+++ b/lcl/interfaces/cocoa/cocoaobject.inc
@@ -139,12 +139,11 @@ end;
 
   Tells Carbon to halt the application
  ------------------------------------------------------------------------------}
-
-
+procedure TCocoaWidgetSet.AppTerminate;
 begin
   if FTerminating then Exit;
- // TODO: Check if there is more cleanup to do here
- // NSApp.terminate(nil);   // causes app to quit directly
+  // TODO: Check if there is more cleanup to do here
+  // NSApp.terminate(nil);   // causes app to quit directly
 end;
 
 {------------------------------------------------------------------------------