Halb VCL Programm; PopupMenu.OnClick zuweisen

[c113plpbr]

Mein bisheriger Code sieht (etwas vereinfacht) so aus:

Delphi-Quellcode:

var
  F : TForm;
  TBNAIcon : TTrayBarIcon;
  TBNAMenuItem1 : TMenuItem;
  TBNAMenu : TPopupMenu;

begin
  TBNAMenuItem1 := TMenuItem.Create(F);
  TBNAMenuItem1.Caption := 'xyz';

  TBNAMenu := TPopupMenu.Create(F);
  TBNAMenu.Items.Add(TBNAMenuItem1);

  TBNAIcon := TTrayBarIcon.Create(F);
  TBNAIcon.PopupMenu := TBNAMenu;
  TBNAIcon.CreateIcon;
end;

Jetzt möchte ich ne function/procedure aufrufen, wenn auf menüitem geklickt wird, also quasi per OnClick. Nur, wie geht das?

[edit: codezeile vergessen ]