Dodawanie pozycji w PopupMenu i OnClick

Mam pytano co wpisac w onClick, zby uruchomil sie wybrany plik:

procedure TForm1.AddMenuItem(itemName: string);
var
  NewItem: TMenuItem;
begin
  NewItem := TMenuItem.Create(nil);
  with NewItem do
  begin
    Caption := itemName;
    OnClick := // <== co tutaj wpisac ;/ ??
  end;
  PopupMenu2.Items.Add(NewItem);
end;

Mam taka procedurke i co wpisac w OnClick aby po klikneieciu uruchomil sie wpis np. plik1.TXT ;/ ??

przypisac wczesniej napisana procedure tupy TNotifyEvent - czyli
procedure klik(Sender:TObject);

i potem

onclick:=klik;

Jedna poprawka: To musi być metoda, nie procedura, więc musi być wewnątrz jakiegoś obiektu/klasy.

MOżesz utworzyć buttona podpiąć mu procedurkę która otwiera plik no i wstawić do tej liniki a potem buttona ukryć, żeby nie był widoczny

MOżesz utworzyć buttona podpiąć mu procedurkę która otwiera plik no i wstawić do tej liniki a potem buttona ukryć, żeby nie był widoczny

Jeśli masz dawać takie rozwiązania to lepiej się wstrzymaj.. albo pomyśl 2 razy

Albo ActionList...