TPopup an zwei TCheckListBox gebunden

[easywk]

Moin, moin,

ich habe ein Popup-Menu, welches an zwei verschiedene TCheckListBox gebunden ist - sprich beide rufen das gleiche Popup auf. Einer der Menüpunkte soll alle Items in TCheckListBox auf Checked=TRUE setzen. Dazu habe ich folgende Routine in das entsprechende OnClick-Event des Menüs geschrieben:

Delphi-Quellcode:

  for cnt:=0 to TCheckListBox(TPopupMenu(TMenuItem(Sender).Parent).PopupComponent).Items.Count-1 do
    TCheckListBox(TPopupMenu(TMenuItem(Sender).Parent).PopupComponent).Checked[cnt]:=TRUE;

IMHO müsste das eigentlich gehen. Geht aber nicht
Bin ich jetzt nur zu blind?

Thanx for help
easywk