Das ist so auch nicht ganz korrekt. Probiers mal so:
Delphi-Quellcode:
var ServicesMenu: NSMenu;
...
Services := AppItem.submenu.itemAtIndex(mnuServices.Index);
ServicesMenu := TNSMenu.create;
ServicesMenu := TNSMenu.Wrap(ServicesMenu.init);
Services.setSubmenu(ServicesMenu);
NSApp.setServicesMenu(ServicesMenu);
Der Einfachheit halber nehme ich den Index des Menuitems, da dieses in der Regel dem im Mac-Menü entspricht.