Erstellen von PopupMenüs zur Laufzeit

[Florian L.]

Danke erst mal für den Code. Er funktioniert, jedoch nur wenn ich das PopupMenu um 1 Eintrag erweitere. Sobald ich ein weiteres einfügen möchte (mit dem untenstehenden Code) bekomme ich folgende Fehlermeldung, welche als Bild im Anhang steckt. Ich hoffe, dass es überhaupt machbar ist, und das Ihr wisst wie!

Vielen Dank!
Florian

Delphi-Quellcode:

//Liste der Verknüpfungen zusammenbauen 
while i < Datei.Count do 
  begin 
    //MenuItem:= TMenuItem.Create(Self); 
    MenuItem.Caption:=Datei.Strings[i]; 
    MenuItem.OnClick:=Anwendung; 
    MenuItem.Tag:=i+1; 
    PopupMenu1.Items.Add(MenuItem); 
    //MenuItem.Free; 
    i:=i+2; 
  end; 
i:=0;