function KeyAndShiftStateToKeyString(Key: word; ShiftState:
TShiftState): String;

....

   if ssCtrl in ShiftState then AddPart(ifsCtrl);
   if ssAlt in ShiftState then AddPart(ifsAlt);
   if ssShift in ShiftState then AddPart(ifsVK_SHIFT);
   if ssMeta in ShiftState then
     {$IFDEF LCLcarbon}
     AddPart(ifsVK_CMD);
     {$ELSE}
     AddPart(ifsVK_META);
     {$ENDIF}
   if ssSuper in ShiftState then AddPart(ifsVK_SUPER);

pls, change here IFDEF to {$ifdef darwin} (to use in cocoa too).