Probleme mit onClick procedure

[Satyr]

Hi,

ich habe mein dynamisch erzeugtes TMenuItem. Das zuweisen von Eigenschaften usw. funktioniert wunderbar.
Ich stecke aber beim zuweisen des onClick Ereignisses Fest. Eine Procedure kann ich hier problemlos hinterlegen - solange sie keine Übergabewerte hat.

Also folgendes funktioniert:

ASub.OnClick := meineProcedure;
Die Procedure dazu ist in folgendem Format deklariert:
procedure meineProcedure(Sender:TObject); Nun würde ich an die Procedure aber noch gerne zusätzlich einen String übergeben.
Wie mache ich das? Einfach die Parameterliste erweitern funktioniert nicht, das wäre wohl auch zu einfach.
Jemand ne Idee?

Gruß,
Andreas