Untermenü zur Laufzeit erzeugen

[Aike]

Ich versuche gerade, die SubMenü-Einträge aus einer String-Liste zu erzeugen. Leider wird mir - aus mir unerklärlichen Gründen - eine "Menü zweimal vorhanden."-Fehlermeldung zurückgeworfen.

Delphi-Quellcode:

var NeuesMenuItem: TMenuItem;
    i:integer;
begin
  NeuesMenuItem := TMenuItem.Create(self);

  try
    for i:=0 to 1 do
    begin
      NeuesMenuItem.Name := 'Komponente_'+IntToStr(i);
      NeuesMenuItem.Caption := Accounts.Strings[i]; //Accounts ist eine StringListe

      AccountWaehlen.Add(NeuesMenuItem); //AccountWaehlen ist das SubMenü, in die die Accounts eingetagen werden sollen
    end;
  finally
    //
  end;
end;