I am using TApplicationEvents OnShortCut event to get application keyboard short cuts in a Delphi program.
Using the following code:
procedure TForm1.App
Or you can create simple TAction, they eats shortcuts before others.