PopupMenü.Items.OnClick neue Prozedur zuweisen

[barnti]

Hallo,
ich habe eine Popupmenü, zu dem ich zur Laufzeit MenüItems hinzufüge. Jetzt möchte ich jedem Item den Eventhandler
'OnClick' zuweisen. Wird ein Item im PopupMenu geklickt, soll diese Prozedur ausgeführt werden.

Meine Vorgenhensweise:

Delphi-Quellcode:

procedure TForm_Main.FormCreate(Sender: TObject);
begin
  PopupMenu1.Items.OnClick:= PopMenuOnClick;
end;


procedure TForm_Main.PopMenuOnClick(Sender: TObject);
begin
  Showmessage('Klick!')
end;


procedure AddPopMenue(Tablename: String);
var Item: TMenuItem;
begin
  Item:= TMenuItem.Create(Form_Main.PopupMenu1);
  Item.Caption:= Tablename;
  Form_Main.PopupMenu1.Items.Add(Item);
end;

Wobei 'AddPopMenue' alle Tabellennamen einer DB zum Popupmenue hinzufügt.

Leider geht es so nicht. Die Prozedur in 'FormCreate' wird zwar zugewiesen, aber beim Klick auf einen PopupmenüItem wird die Prozedur 'PopMenuOnClick' nicht ausgeführt?!

Wo liegt mein Fehler? Habe ich die Prozedur falsch zugewiesen? Kann ich überhaupt jedem Item so diese Prozedur zuweisen?

Danke!