procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));

  if (Key = VK_RIGHT) then
    begin
      ShowMessage ('Gotcha!');
      Handled := True;
    end