Dynamiczne tworzenie subitemów w PopupMenu

Ja w temacie. Mam problem ze zrobieniem podmenu dynamicznie w delphi.
Umiem zrobić item w popupmenu dynamicznie ale jak zrobić żeby pod tym itemem były jeszcze inne itemy czyli jak dynamicznie zrobić submenu.

I moje drugie pytanie,<font size="2"> ale to mniej ważne bo w końcu sam do tego pewnie bym doszedł ale jak zrobić żeby przy dynamicznym tworzeniu itemów i subitemów działo się coś po naciśnięciu jakiejś pozycji. Umiem zrobić wydarzenie OnClick dla itemów ale wtedy wiem niewiele rzeczy na temat tej pozycji którą się wcisnęło. Dokładniej </span>chodzi mi o zrobienie czegoś w stylu "Ulubione" w mojej aplikacji i chcę żeby po naciśnięciu pozycji np "4programmers" otworzyła się przypisana strona www.4programmers.net i nie wiem jak to najłatwiej zrobić. Myślałem o zrobieniu tablicy i powiązaniu jakiegoś itema z PopupMenu do danego wpisu w tabeli, ale może ktoś ma jakieś łatwiejsze rozwiązanie albo pomysł jak najłatwiej zrobić to co tu napisałem.

Z góry dziękuje za wszystkie odpowiedzi.

Ad1:

Item := TMenuItem.Create(Tu podaj Item, pod który chcesz suba);
(Tu podaj Item, pod który chcesz suba).Add(Item);

// dla popUp`ów powinno być tak samo...

Ad2:

Normalnie przez ShellExecute, jak masz PCHAR(x), za x podstaw Caption Sendera...

ad2 ale wtedy nie wiadomo jaki jest foldre bo wiem już tak robiłem a jak jest pozycja 4programmers w submenu i taka sama w innym submenu to nie wiadomo który folder będzie trzeba gdzieś trzymać listę folder bo ja nie chce żeby była wyświetlana nazwa pliku razem ze ścieżką a poza tym to ja chcę zrobić całkiem coś innego tylko chciałem podać przykład.

Ja bym to zrobił tak:
Gdzieś TStringList, i każdemu itemowi do wartości Tag przypisany odpowiedni index ze StringListu...

Można na siłę właściwość Hint wykorzystać.. o ile Item ma takową - ale chyba tak...