title: TAction.ShortCut not working in dynamically created TAction
body: <p>In Delphi XE5: I have a TActionManager (called ActionManager) and a TRibbon (called Ribbon) on my form. I am adding a custom action like this:</p>
  
  <pre><code>ActionBar := ActionManager.ActionBars.Add;
  newAction := TAction.Create(MainForm.ActionManager);
  newAction.Name := 'Topics';
  newAction.Caption := 'Topics';
  newAction.OnExecute := MainForm.HelpTopicsItemClick;
  newMenu := ActionBar.Items.Add;
  newMenu.Action := newAction;
  newAction.ShortCut := TextToShortCut('F1');
  </code></pre>
  
  <p>After this I place them on a ribbon in a page/tab and in a group:</p>
  
  <pre><code>rp := TRibbonPage.Create(ActionManager);
  rp.Parent := Ribbon;
  Ribbon.AddTab(rp).Caption := 'Help';
  rg := TRibbonGroup.Create(ActionManager);
  rg.Parent := rp;
  rg.ActionManager := ActionManager;
  rg.Caption := 'Help';
  rg.ActionClient := ActionBar;
  </code></pre>
  
  <p>The action works fine when I click it, However when I press 'F1' nothing happens. When I add the action manually using the Delphi editors the shortcuts work fine.</p>
  
  <p>I already tried: newMenu.ShortCut := newAction.ShortCut</p>
  
  <p>This doesn't help. What am I missing?</p>