Dynamisches Popup » Procedure mit Parametern

[hibbert]

Hi,
ich habe ein Popupmenü welches ich dynamisch erzeuge. Nun soll der User auf ein Item klicken können und eien Procedure mit Parametern soll aufgerufen werden:

Delphi-Quellcode:

procedure tform1.meineproc(pname:string);
begin
showmessage(pname);
end;
{...}
  aNewItem : array of TMenuItem;
begin
setlength(aNewItem,11);
for i:= 0 to 10 do
  begin
    aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineporc(listbox1.Items[i]), 0, 'item'+inttostr(i));
  end;
{...}

doch dabei erhalte ich diese Fehlermeldung des Compilers:

Zitat von Compiler:

[Fehler] Unit1.pas(151): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Wie kann ich nun die Procedure aufrufen und die Parameter übergeben ?

thx
hibbert