Ereignis in ein Array an Procedure übergeben

[Christian18]

Hallo,

wie kann ich in eine Procedure die ich geschrieben habe ein on click ereignis übergeben??? ich habe eine kleine procedure geschrieben, womit man ein menü erzeugen kann. jetzt wollte ich das noch so machen, dass man auch ein ereigniss in einem array in die procedure übergibt uns dann soll es für die einzelnen buttons ausgeführt werden.

hier meine code die ich bis jetzt habe:

Delphi-Quellcode:

// Procedure
procedure create_menu(a : Array of String);
  var b : TButton;
      i : Integer;  // Schleifenvariable
begin
  for i:=0 to Length(a) - 1 do
    begin
      b:=TButton.Create(Form1);
      b.Caption:=a[i];
      b.Top:=30 * i;
      b.Left:=10;
      b.Parent:=Form1;
    end;
end;

// Aufruf
procedure TForm1.Button1Click(Sender: TObject);
  var a : Array of String;
begin
  SetLength(a, 5);

  a[0]:='Menu1';
  a[1]:='Menu2';
  a[2]:='Menu3';
  a[3]:='Menu4';
  a[4]:='Menu5';

  create_menu(a);
end;

Mit freundlichen Grüßen

Christian18