Клавиша ускорения Firemonkey

Question

Я ищу способ регистрации accelerator key, отличный от стандартного, то есть, когда текст с accelerator key установлен на tLabel.

Я много гуглили не нашел ничего подобного.

Кроме того, в другом вопросе было предложено установить свойство Label's Text при создании Form's после установки родительского элемента Label's, но это не работаетпоскольку свойства Label's Text и Parent могут быть установлены динамически во время выполнения.

Предполагается, что форма имеет TEdit, a TLabel и TRectangle, названные соответственно MyEdit, MyLabel и MyRect, следует краткий пример кода

...
interface
type
tMyForm = class (TForm)
...
 procedure FormCreate (Sender: tObject);
...
end;
...
implementation
tMyForm.FormCreate (Sender: tObject);
begin
  ...
  MyLabel.FocusControl := MyEdit;
  MyLabel.Text := '&Label';
  MyLabel.Parent := MyRect; // after this setting
                            //   the accelerator key stop working
// I need some code here that makes the accelerator key work, no matter where 
// I set the TLabel's Text and Parent properties
  ...
end;