доступ к элементам дизайна

[Alex_V]

Имеется форма(F1). На ней расположена MenuButton (MenuButton1). MenuButton имеет menu items (IP1,IP2,IP3).
Необходимо чтобы при определенных событиях некоторые menu items скрывались.
т.е. возможно ли сделать данное через что то типа :
CASE ... OF
...:
BEGIN
CurrForm.MenuButton1.IP1.Visible := TRUE;
CurrForm.MenuButton1.IP2.Visible := FALSE;
CurrForm.MenuButton1.IP3.Visible := FALSE;
END;
...:
---//---- и т.д.
END;
?
Можно конечно наделать на все случаи MenuButton - ов с необходимыми пунктами меню и потом вызывать типа:

CASE ... OF
...:
BEGIN
CurrForm.MenuButton1.Visible := TRUE;
CurrForm.MenuButton2.Visible := FALSE;
END;
... :
BEGIN
CurrForm.MenuButton1.Visible := FALSE;
CurrForm.MenuButton2.Visible := TRUE;
END
END;

но может есть другой путь?
подскажите pls, заранее спасибо.