Is ok.
Thanks for All.
This code working.
First, you'll need to add something like this to your main form's declaration:
{$IFDEF DARWIN}
AppMenu : TMenuItem;
AppAboutCmd : TMenuItem;
AppSep1Cmd : TMenuItem;
AppPrefCmd : TMenuItem;
{$ENDIF}
Now add this in the main form's FormCreate handler or some other startup code:
{$IFDEF DARWIN}
AppMenu := TMenuItem.Create(Self); {Application menu}
AppMenu.Caption := #$EF#$A3#$BF; {Unicode Apple logo char}
MainMenu.Items.Insert(0, AppMenu);
AppAboutCmd := TMenuItem.Create(Self);
AppAboutCmd.Caption := 'About ' + BundleName; //<== BundleName set elsewhere
AppAboutCmd.OnClick := AboutCmdClick;
AppMenu.Add(AppAboutCmd); {Add About as item in application menu}
AppSep1Cmd := TMenuItem.Create(Self);
AppSep1Cmd.Caption := '-';
AppMenu.Add(AppSep1Cmd);
AppPrefCmd := TMenuItem.Create(Self);
AppPrefCmd.Caption := 'Preferences...';
AppPrefCmd.Shortcut := ShortCut(VK_OEM_COMMA, [ssMeta]);
AppPrefCmd.OnClick := OptionsCmdClick; //<== "Options" on other platforms
AppMenu.Add(AppPrefCmd);
{$ENDIF}