Prozedur mit Parameter zu einem dynamisch erzeugten MenuItem

[jim_raynor]

Weise der Tag eigenschaft den Wert 5 bzw. 11 zu:

Delphi-Quellcode:

NewItem.Tag := 5;
NewItem.OnClick:=Berechne;

.
.
.

procedure TForm1.Berechne(Sender: TOBject);
var
  Wert: Integer;
begin
  Wert:=(Sender as TMenuItem).Tag;
end;

Eigene Parameter zu definieren funktioniert nicht.