如何以编程方式执行TShortcut？

Question

procedure ExecuteAShortCut(AShortCut: System.Classes.TShortCut);
begin
  // This will have the same effect as when the user presses this shortcut on the keyboard:
  DoExecuteThisShortCut(AShortCut);
end;

如何实施DoExecuteThisShortCut？