onclick für dynamisch erzeugtes tmenuitem ?

[agm65]

moin freunde..
wie erstelle ich ein onclick event für meine dynamisch erzeugten tmenuitems ?

Delphi-Quellcode:

    BannerList[i] := tmenuitem.Create(PopupBanner);
    BannerList[i].Caption := MainDataModule.MainOpenQuery.FieldValues['name'];
    PopupBanner.Items.Add(BannerList[i]);
    inc(i);

eine ein event, was dann zB sagt if menuitemindex = 1 then ->

danke euch