PopupMenu > SubItem > SubItem selbst erstellen

[MiKaEr]

hallo,

ich versuche gerade einem bestehenden PopupMenu ein dynamisch erzeugtes Item zuzuweisen. das klappt auch super. diesem item möchte ich AUCH ein subitem zuweisen.
beide items haben ein OnClick-Event. wenn ich nun das PopupMenu angezeigt bekomme und mit der baus über das erste SubItem fahre, wird automatisch das OnClick-Event des ersten SubItems ausgelöst. woran kann das liegen? denn eigentlich sollte das 2. SubItem angezeigt werden.

Delphi-Quellcode:

           erstessubitem:= TMenuItem.Create(Form1);
           erstessubitem.Name := 'subitem' + IntToStr(i);
           erstessubitem.Tag := i;
           erstessubitem.Caption := 'Test ' + IntToStr(i);
           erstessubitem.OnClick := erstessubitemClick;

           zweitessubitem := TMenuItem.Create(Form1);
           zweitessubitem.Name := erstessubitem.Name + 'sub';
           zweitessubitem.Tag := erstessubitem.Tag;
           zweitessubitem.Caption := 'Testsub ' + IntToStr(i);;
           zweitessubitem.OnClick := zweitessubitemClick;
           erstessubitem.Add(zweitessubitem);

           PopupMenu1.Add(erstessubitem);

[ibp]

lass doch mal das onclick des ersten weg.