procedure TForm1.newCtrlA1Click(Sender: TObject);
var
  NEW: TMenuItem;
begin
  NEW.ShortCut:=HotKey1.HotKey;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotKey1.Modifiers:=[hkshift,hkCtrl];
  HotKey1.InvalidKeys:=[hcAlt];
end;

end.