Einem Event zugewiesene Ereignisprozedur ermitteln?

[freejay]

Daran habe ich auch schon gedacht. Dann darf aber die Anwendung nicht schon die Tags verwenden und ich habe wieder keinen sprechenden Code:

Delphi-Quellcode:

for i := 0 to PopupMenu1.Items.Count - 1 do 
  
  if PopupMenu1.Items[i].Tag = 1 then 
    ... 
  else if PopupMenu1.Items[i].Tag = 2 then 
    ... 
  else if PopupMenu1.Items[i].Tag = 3 then 
    ...

Natürlich könnte ich noch Konstanten für die Tags anlegen, aber das ist alles so umständlich...

Ich hatte gehofft, dass da vielleicht was mit den erweiterten RTTI-Möglichkeiten von Delphi2010 geht?