Wie in dem Beispiel von Delbor verlinkt fehlt also nur die Zeile zum Erzeugen von NewItem.
Delphi-Quellcode:
procedure TOpenFileFrame.NewPopUpItem;
var
NewItem: TMenuItem;
begin
NewItem := TMenuItem.Create(PopupMenu1); // Create the new item.
Self.PopupMenu1.Items.Add(NewItem);
NewItem.Caption := 'Dateierweiterungen 2 ';
NewItem.Name := 'DateiExtension ' + IntToStr(NewItem.Count);
// NewItem.Tag := 1;
// NewItem.OnClick := PopupMenuItemsClick; // Assign it an event handler.
end;