Delphi:如何停止TAction快捷键自动重复？

procedure TForm1.Action1Update(Sender: TObject);
begin
  TAction(Sender).Enabled := not (KeyboardStateToShiftState = [ssCtrl, ssAlt]);
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
  if KeyboardStateToShiftState = [ssCtrl, ssAlt] then
    Exit;

  // 在这里执行您的操作
end;