关于为菜单项设置快捷键的问题

关于为菜单项设置快捷键的问题 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061224205210144.html
我想在程序中动态改变菜单项的快捷键，比如我要为菜单“EXIT”设置快捷键“CTRL+E”。这里的“CTRL+E”是存在数据库里的，我要取出来，动态设置。  
  请问这个该怎么做？

//参考：  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      Exit1.ShortCut   :=   TextToShortCut('CTRL+E');  
  end;  
   
  procedure   TForm1.Exit1Click(Sender:   TObject);  
  begin  
      Close;  
  end;