Problem mit NewSubMenu

[shmia]

Delphi-Quellcode:

NewItem := NewSubMenu(Member[index].Name,0,'SubItem'+IntToStr(index),SubItem); 
NewItem.Tag := index;
// falsch 
NewItem.OnClick := PopupMenuItemsClick; 

// richtig (denk ich mal :-)
for i := Low(SubItem) to High(SubItem) do
   SubItem[i].OnClick := PopupMenuItemsClick;