diff --git a/lcl/interfaces/cocoa/cocoa_extra.pas b/lcl/interfaces/cocoa/cocoa_extra.pas
index af1edd2f38..838366e6a5 100644
--- a/lcl/interfaces/cocoa/cocoa_extra.pas
+++ b/lcl/interfaces/cocoa/cocoa_extra.pas
@@ -197,6 +197,7 @@ type
     {$endif}
     // 10.14
     function appearance: NSAppearance; message 'appearance'; // 10.14 (10.13)
+    function effectiveAppearance: NSAppearance; message 'effectiveAppearance'; // 10.14 (10.13)
   end;
 
   NSTableColumnFix = objccategory external (NSTableColumn)
diff --git a/lcl/interfaces/cocoa/cocoathemes.pas b/lcl/interfaces/cocoa/cocoathemes.pas
index b5207bd5ff..c9d84fb37e 100644
--- a/lcl/interfaces/cocoa/cocoathemes.pas
+++ b/lcl/interfaces/cocoa/cocoathemes.pas
@@ -162,7 +162,7 @@ begin
     Result := false;
     Exit;
   end;
-  if (not NSApplication(win).respondsToSelector(ObjCSelector('effectiveAppearance'))) then begin
+  if (not win.respondsToSelector(ObjCSelector('effectiveAppearance'))) then begin
     Result := false;
     Exit;
   end;
diff --git a/lcl/interfaces/cocoa/cocoawindows.pas b/lcl/interfaces/cocoa/cocoawindows.pas
index fb00416248..cb58967f41 100644
--- a/lcl/interfaces/cocoa/cocoawindows.pas
+++ b/lcl/interfaces/cocoa/cocoawindows.pas
@@ -308,7 +308,7 @@ procedure NSResponderHotKeys(asender: NSResponder; event: NSEvent; var handled:
 var
   undoManager: NSUndoManager;
   ch : System.WideChar;
-  msk : NSEventModifierFlags;
+  msk : LongWord; //NSEventModifierFlags;
   chr : NSString;
 const
   NSModsMask = NSShiftKeyMask