Menüeinträge während das Programm läuft hinzufügen

[orion3000]

Hallo versuchsmal mit folgenden Code:

Delphi-Quellcode:

Private 
Procedure ClickDatei(Sender:tobject);

var   NewItem: TMenuItem;


if (Appname='58745521456') and (AppVersion='1.0') then
begin
    NewItem := TMenuItem.Create(Self);
    NewItem.Caption:='Datei 1';
    newitem.OnClick:= ClickDatei; /// Zur Laufzeit OnClick hinzufügen
    "Dein-menü".Add(NewItem);    ///  Zum Menü hinzufügen
end;

/// Hier das OnClick

Procedure TMainForm.ClickDatei(Sender:tobject);
 begin
  
  with Sender as TMenuItem do
  begin
  Showmessage(Caption);
  End;
End;

Gruß
Orion3000