[Karsh]

В модкле Menus есть такая функция:

Код:

uses
  Menus;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Action1.ShortCut:= TextToShortCut('Ctrl+B');
end;