Tpopupmenu, dynamisk item.add()

Hejsa eksperter

.. hvordan tilføjer man punkter i en Tpopupmenu dynamisk?

jeg vil tilføje punkter i en popupmenu ved at trykke på en knap.. og det går fint med caption men desværre ikke med onclick proceduren.

Hvordan tilføjer man den?.. jeg ved at den skal være af typen TNotifyEvent men hvordan bygger man koden op?

jeg har følgende:

procedure TForm1.AddMenu(var popupmenu: Tpopupmenu);
var
  mi: TMenuItem;
  OnClickProcedure: TNotifyEvent;
begin
  mi := TMenuItem.Create(self);
  mi.Caption := 'xxxx';
  mi.OnClick := OnClickProcedure(showmessage('hejsa'));
  popupmenu.Items.Add(mi);
end;

ovenstående kode skulle gerne tilføje et menupunkt med caption: xxxx og en onclick procedure som giver en showmessage hvor der står "hejsa"... men det virker ikke.!

Der er en typecast fejl.. det kan jeg også godt se... men jeg ved ikke hvad jeg skal gøre for at rette det til så det virker.. jeg håber nogen af jer eksperter kan hjælpe :)