diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index e21f11af53..f6b030b21e 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -519,7 +519,8 @@ begin
     begin
       CheckSynchronize;
       NSApp.updateWindows;
-      TCrackerApplication(Application).ProcessAsyncCallQueue;
+      if Assigned(Application) then
+        TCrackerApplication(Application).ProcessAsyncCallQueue;
       Result := nil
     end
     else if ((mode = NSEventTrackingRunLoopMode) or mode.isEqualToString(NSEventTrackingRunLoopMode))