auf dynamisch erzeugte untermenüeinträge zugreifen

[vanilla]

hallo leute,

ich erzeuge dynamisch untermenüeinträge, es können max. 6 einträge werden.. das hab ich auch gut hinbekommen, meine einträge werden immer schön aufgelistet. Jetzt brauche ich aber jeweils ne onclick funktion ?? wie krieg das denn hin ???

ungefähr so erzeuge ich die Einträge
[/delphi

for i := 0 to iMax do
begin


SubItem := TMenuItem.Create(Self); // Erzeugen des Untermenüeintrags
SubItem.Caption:= 'eintrag'; // Name des Untermenüeintrages}
Item.Add(SubItem); // Einfügen des Untermenüeintrages
end; //for

[delphi]