Problem beim Zuweisen einer Procedure (Menüs)

[Doc Morelli]

Hi @ll,

Delphi-Quellcode:

procedure RunProgram(str: String);
begin
{Hier wird dann das Programm, welches unter dem Pfad str zu finden
ist gestartet}
end;

procedure TForm1.Button1Click(Sender: TObject);
var m: TMenuItem;
    i: integer;
begin
for i := 1 to 10 do begin
    m := TMenuItem.Create(PopupMenu1.Items[0]);
    m.Caption := 'SubItem' + inttostr(i);
    m.Name := 'Name' + inttostr(i);
    m.OnClick := RunProgram('C:\...');
    item1.Add(m);
end;
end;

Ich will mehrere Untermenüs zu einem bestimmten Menü anlegen. Jedes Untermenü soll dann ein anderes Programm öffnen können. Nur gibt es bei:
    m.OnClick := RunProgram('C:\...'); immer folgenden Fehler:

Zitat:

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

Wie kann ich jetzt m.OnClick die entsprechene Procedure zuweisen???

MFG Doc