diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index a4da1768eb..8691839523 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -66,6 +66,7 @@ type
   { TCocoaApplication }
 
   TCocoaApplication = objcclass(NSApplication)
+    syncCheckEventRef: EventRef;
     aloop : TApplicationMainLoop;
     isrun : Boolean;
     modals : NSMutableDictionary;
@@ -86,6 +87,7 @@ type
     function nextEventMatchingMask_untilDate_inMode_dequeue(mask: NSUInteger; expiration: NSDate; mode: NSString; deqFlag: LCLObjCBoolean): NSEvent; override;
 
     function runModalForWindow(theWindow: NSWindow): NSInteger; override;
+    procedure lclPostSyncCheckEvent; message 'lclPostSyncCheckEvent';
     procedure lclSyncCheck(arg: id); message 'lclSyncCheck:';
     {$ifdef COCOAPPRUNNING_OVERRIDEPROPERTY}
     function isRunning: objc.ObjCBOOL; override;
@@ -677,6 +679,13 @@ begin
       Exit;
   end;
 
+  if (not Assigned(Result) and ((mask and NSPeriodicMask) <> 0)) or
+     (Assigned(Result) and (Result.eventRef = syncCheckEventRef)) then
+  begin
+    syncCheckEventRef := nil;
+    lclSyncCheck(nil);
+  end;
+  
   if (Result.type_=NSApplicationDefined) and (Result.subtype=LazarusApplicationDefinedSubtypeWakeup) then
     Result:= nil;
 
@@ -720,6 +729,21 @@ begin
   Result:=inherited runModalForWindow(theWindow);
 end;
 
+procedure TCocoaApplication.lclPostSyncCheckEvent;
+var ev: NSEvent;
+begin
+  if not Assigned(syncCheckEventRef) then
+  begin
+    ev := NSEvent.otherEventWithType_location_modifierFlags_timestamp_windowNumber_context_subtype_data1_data2(
+       NSPeriodic, NSPoint(CGPointZero), 0, 0, 0, nil, 0, 0, 0);
+    syncCheckEventRef := ev.eventRef;
+    postEvent_atStart(ev, False);
+  end
+  else
+    performSelectorOnMainThread_withObject_waitUntilDone(
+       ObjCSelector('lclSyncCheck:'), nil, false);
+end;
+
 procedure TCocoaApplication.lclSyncCheck(arg: id);
 begin
   {$ifdef COCOALOOPNATIVE}
diff --git a/lcl/interfaces/cocoa/cocoaobject.inc b/lcl/interfaces/cocoa/cocoaobject.inc
index fb68992e46..fcefaf48e0 100644
--- a/lcl/interfaces/cocoa/cocoaobject.inc
+++ b/lcl/interfaces/cocoa/cocoaobject.inc
@@ -50,9 +50,7 @@ end;
 
 procedure TCocoaWidgetSet.SendCheckSynchronizeMessage;
 begin
-  InitApplication
-    .performSelectorOnMainThread_withObject_waitUntilDone(
-       ObjCSelector('lclSyncCheck:'), nil, false);
+  TCocoaApplication(NSApp).lclPostSyncCheckEvent;
 end;
 
 {------------------------------------------------------------------------------