unit mtRunWithoutDebugging;

interface

procedure Register;

implementation

uses
  Classes, Forms, Menus;

procedure Register;
var
  Comp: TComponent;
begin
  //Make a hidden menu item visible
  Comp := Application.MainForm.FindComponent('RunRunNoDebugItem');
  if Comp is TMenuItem then
  begin
    TMenuItem(Comp).Visible := True;
    TMenuItem(Comp).ShortCut := TextToShortCut('Shift+F9');
  end;
end;

end.