Popoupmenu zur Laufzeit erstellen

[Nicolai1234]

Hallo,
ich erstelle so ein Popupmenu zur Laufzeit (bzw. die Inhalte des Menüs)

Delphi-Quellcode:

tmi := tmenuitem.Create(self);
[..]
tmi.Caption := listbox1.Items[i];
popupmenu1.Items.Add(tmi);

Das Funktioniert auch alles recht gut, allerdings möchte ich es jetzt so machen, dass beim KLICK auf die einzelnen Menüpunkte immer EINE procedure aufgerufen wird.

Diese Prozedur sieht wie folgt aus:
procedure oeffnen(s:string); Der String der der Prozedur übermittelt wird, soll gleichzeitig das (oder die?) Caption des Menüpunktes sein.

Also: Wie kann ich beim erstellen der Menüpunkte klarmachen, dass er immer diese Prozedur mit dem entsprechenen String aufrufen soll?

Ich hoffe ihr versteht was ich meine.
Vielen Dank im voraus