Das Beispiel ist insofern etwas unglücklich, weil die lokale Variable
NewItem die gleichnamiger Funktion aus
Vcl.Menus überdeckt, mit der man ein solches
TMenuItem recht komfortabel erstellen kann:
https://docwiki.embarcadero.com/Libr....Menus.NewItem