TMenuItems zur Laufzeit erstellen und auf OnClick reagieren

[jesus]

Hallo,

ich möchte im Main-Menu meines Programms dynamisch MenuItems erzeugen. Das krieg ich auch hin indem ich mir ein MenuItem definiere und mit der Funktion Add hinzufüge. Im OnClick definiere ich eine Funktion die bei onClick ausgeführt wird. Das mache ich mit mehreren Items innerhalb einer Schleife so wie angedeutet :

{alles in einer Schleife

item:= TMenuItem.Create(self);
item.caption:= 'beliebiger Text';
item.onClick:= ClickProcedure;

menu.items.items[0].add(item);

}

... aber wie kriege ich jetzt raus auf welches MenuItem geklickt wurde ? Ich kann in ClickProcedure jetzt Sachen ausführen, aber nicht abghängig vom geklickten Item ? wie macht man sowas ?

Grüße jesus