Dynamiczne dodawanie pozycji do Menu

Mam taką strukturę MainMenu:

Operacje

Operacyjki1 --> Pusto:)

Chcę dynamicznie dodać elemnet do SubMenu elementu Operacyjki1 i ustawić dla nowo wstawionego elementu właściwośc Caption oraz uzupełnić procedure onClick.
Jak to zrobić?

1. Deklarujesz obiekt klasy TMenuItem:

var TMPMenuItem: TMenuItem;

2. Tworzysz ten obiekt jako podobiekt tego swojego menu:

TMPMenuItem:=TMenuItem.Create;
Operacyjki1.Add(TMPMenuItem);

3. Ustawiasz odpowiednio Caption:

TMPMenuItem.Caption:='Operacyjka numer 1';

4. Przypisujesz zdarzenie:

TMPMenuItem.OnClick:=Form1.Operacyjka1Click;

Uwaga! Operacyjka1Click musi być metodą typu TNotifyEvent. Inaczej nie pójdzie. Jest to najczęściej popełniany błąd, więc zwracam na niego uwagę.

5. Na końcu wykonywania procedury nie zwalniasz pamięci za pomocą TMPMenuItem.Free. Spowodowałoby to usunięcie tego elementu menu. Zwolnieniem pamięci zajmie się TCustomMenu w momencie zamykania aplikacji.

Działa, dzięki.