With Delphi for Windows, I usually use this code:
function isCtrlDown : Boolean; var ksCurrent : TKeyboardState; begin GetKeyboardState(
Based on this answer you could try this:
function isCtrlDown : Boolean; begin Result := NSControlKeyMask and TNSEvent.OCClass.modifierFlags = NSControlKeyMask; end;