Dynamisches Erstellen eines Menü im Delphi

[shmia]

Delphi-Quellcode:

procedure TForm1.test1; 
  var MeinText: String; 
  i: integer; 
  NewItem, parent: TMenuItem; 
begin 
  parent := MenuHaupt.Items.Find('Inhalte'); 
  MeinText := 'A1|B1|C1' ; 
  L1 := StrSplit(MeinText, ['|']); 
  for i:=0 to L1.Count-1 do 
  begin 
    NewItem := TMenuItem.Create(Self); 
    NewItem.Caption := L1[i]; 
    parent.Add(NewItem);
    parent := NewItem;   // das neue Item wird nun zum aktuelle Eltern-Item
  end;
end;