PopupMenü.Items.OnClick neue Prozedur zuweisen

[himitsu]

und wie sieht es damit aus?

Code:

procedure AddPopMenue(Tablename: String); 
var Item: TMenuItem; 
begin 
  Item:= TMenuItem.Create(Form_Main.PopupMenu1); 
  Item.Caption:= Tablename; 
  [color=red]Item.OnClick:= Form_Main.PopMenuOnClick;[/color]
  Form_Main.PopupMenu1.Items.Add(Item); 
end;