item im popupmenu hinzufügen und dem eine funktion zuweisen

[Nicodius]

nein .. du musst eine procedure zuweisen

ins puplic oder sonst wo

 procedure OkButtonClick(Sender : TObject); und unten dann

Delphi-Quellcode:

procedure TEreignis.OkButtonClick(Sender : TObject);
begin
  TForm(TButton(Sender).Parent).Close;
end;

  button.OnClick := OkButtonClick;