Procedure dynamisch erstellen und mit Wert füllen ?

[mkinzler]

Delphi-Quellcode:

procedure TForm1.dynamicklick(Sender: TObject);
begin
    openfile((memo1.lines[ (Sender as TMenuItem).Tag]);
end;
...
NewItem.Tag := i;