Как назначить ShortCuts в RunTime блин! к меню или Actions!

Спасибо за помощь!

Хм читал не работает! в Ран Тиме!

Юлин а F5 хочу что сделать

уточняю
есть пункт менбю который создаеться в ран тиме его настройки храняться в базе что вызывать как вызывать и тд......
т.к. ShortCut не пооддерживает всех комбинации клавишь хотелось бы прикрутить исполнение меню к Action и SecondaryShortCut(и этот список гор. клав хранить в базе) но блин не получаеться ИЗВИНИТЕ ЧТО НЕ ТАК


Procedure TForm2.CreateAllMenu;
Var
NewItem: TMenuItem;
NewPopItem: TMenuItem;
MenuOtchetID, VerhId: Integer;
NewAction : TAction;
Begin
WIth Dm.sUtils1 DO
Begin
Close;
SelectSql.Text := 'Select * FRom IBE$REPORTS WHERE (IBE$REPORT_PARENT_ID = -1 AND MENU_FLAG = 5)';
Open;
NewItem := TMenuItem.Create(Self);
MainForm.MainMenu1.Items.Add(NewItem);
MenuOtchetID:= MainForm.MainMenu1.Items.Count - 1;
NewItem.Caption := 'Ïðîãðàììû';
While Not Eof Do
Begin
NewPopItem := TMenuItem.Create(Self);
MainForm.MainMenu1.Items[MenuOtchetID].Add(NewPopItem);
NewPopItem.Caption := FN('IBE$REPORT_NAME').asString;
VerhId := MainForm.MainMenu1.Items[MenuOtchetID].Count - 1;
//Äîñòàåì ïîä óðîâåíü ýòîãî îò÷åòà
With DM.sUtils2 DO
Begin
Close;
SelectSql.Text := 'Select First 1 IBE$REPORT_NAME,IBE$REPORT_IS_REPORT, REPORT_SQL From IBE$REPORTS WHERE (IBE$REPORT_PARENT_ID = :PARENT_ID AND MENU_FLAG = 1)';
ParamByName('PARENT_ID').asInteger := DM.sUtils1.FN('IBE$REPORT_ID').AsInteger;
OPen;
While Not Eof Do
Begin
NewAction:= TAction.Create(Form2);
MainForm.UniverCreateForm.SecondaryShortCuts.Clear;
MainForm.UniverCreateForm.SecondaryShortCuts.Add('VK_F12');//FN('REPORT_SQL').asString);
NewAction.Tag := FN('IBE$REPORT_IS_REPORT').asInteger;
NewAction.Caption := FN('IBE$REPORT_NAME').asString;
NewAction.SecondaryShortCuts := MainForm.UniverCreateForm.SecondaryShortCuts;
NewAction.OnExecute := MainForm.UniverCreateForm.OnExecute;
//==================================
NewPopItem := TMenuItem.Create(Self);
MainForm.MainMenu1.Items[MenuOtchetID].Items[VerhId].Add(NewPopItem);
// NewPopItem.Caption := FN('IBE$REPORT_NAME').asString;
// NewPopItem.Tag := FN('IBE$REPORT_IS_REPORT').asInteger;

//NewPopItem. ShortCut := ShortCut(StrToInt(FN('REPORT_SQL').AsString), []);//111 + NewPopItem.Tag;
NewPopItem.Action := NewAction;//MainForm .UniverCreateForm;// .OnClick := PopupAllMenuItemsClick;

Next;
End;// While
End;//With Utils2
Next;
End;
End;
End;




Это не самый лучший вариант пробовал по разному плищ хелп