Varibale bei (Sender:Object) mit übergeben

[Luke_83]

Hallo das ist mein erster Beitrag und ich weiß nicht genau ob ich jetzt alles richtig gemacht habe.
Aber zu meinem Problem bei Delphi


Ich hab zurzeit folgendes Problem. Die Procedure Task_neu muss Variabel sein. Das heißt ihr möchte eine Variable mit dem Onlick Event übergeben.

Delphi-Quellcode:

procedure TForm2.Task_Neu([b]var i:Integer;[/b] Sender: TObject);
var SelectedURL,url:string;
begin
 Taskausfuehren[0-9,0-19];
end;


procedure TForm2.Button22Click(Sender: TObject);
var MeinMenue: array[0 ..recordmax] of TMenuItem;
    i,i2:Integer;
begin
  //Vorhandenes Menü Löschen
  for i:=0 to recordmax do Form1.MainMenu1.Items[0].Clear;

  //Menü neu aufbauen
  for i := 0 to recordmax do begin
   MeinMenue[i] := TMenuItem.Create(self);
   MeinMenue[i].Caption := Task[1,i].FeldName;
   MeinMenue[i].OnClick:=Task_Neu;
   Form1.MainMenu1.Items[0].Add(MeinMenue[i]);
  end;

end;

[edit=SirThornberry] Mfg, SirThornberry[/edit]