delphi arrayWithObject使Mac处于睡眠状态

Question

Delphi XE4 update1，具有目标平台MAC OS的桌面应用程序。

我尝试在字体集合中注册字体。这是我的代码：

ns:=NSSTR(myCollection);
fManager.addCollection(ns,0);
fontDesc:= TNSFontDescriptor.Wrap(TNSFontDescriptor.OCClass.fontDescriptorWithName(
  NSSTR(fontName+'-'+weightName), 10.0));

a1:=TNSArray.Wrap(TNSArray.OCClass.arrayWithObject(@fontDesc)); //here the computer falls asleep
fManager.addFontDescriptors(a1,ns);

我不熟悉所有这些OS X的东西。请帮忙。

编辑：这是工作代码：

fontURL:=CFURLCreateWithFileSystemPath(kCFAllocatorDefault, CFSTR(srcPath + fileName + ext), kCFURLPOSIXPathStyle, false);
fManager := TNsFontManager.Wrap(TNsFontManager.OCClass.sharedFontManager);
ns:=NSSTR(myCollection);
cf:=CTFontManagerCreateFontDescriptorsFromURL(fontURL);
a1 := TNSArray.Create;
TNSArray.Init(a1,cf);
fManager.addFontDescriptors(a1,ns);