Dynamisches Erstellen eines Menü im Delphi

[Atlas-25]

Hallo DeddyH, Vielen Dank für die schnelle Antwort,
ich hebe trotzdem heute ein Brett vom Kopf
kannst du mir bitte korrigieren

im Hauptformular habe ich folgendes stehen:
Formatierter Delphi-Quellcode:

Delphi-Quellcode:

unit HauptFormular;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Menus, Printers, JvExExtCtrls, JvExtComponent,
  JvPanel, StdCtrls, Buttons,
  Unit_A;     //mein Unit       

type
   TfrmMain = class(TForm)
    ....
  private
    
  end;

var
  frmMain: TfrmMain;
  MenuItem1: TMenuItem;
......

implementation

uses
...
procedure TfrmMain.FormCreate(Sender: TObject);
begin
   //hier wird die Prcedure MenuAufbau() aufgerufen
   //diese Prcedure ist im Unit A im gleichen Project implementiert
end;
end.

im Unit_A steht folgendes:
Formatierter Delphi-Quellcode:

Delphi-Quellcode:

prcedure MenuAufbau();
begin
  //hier wir das Menü dynamisch aufgebaut
  // ich möchte hier jedem Menüeintrag ein Ereignis zuweisen
  
  MeinItem.Onclick := MeineProcedure;
end;

procedure MeineProcedure(Sender: TObject);
begin
    showmessage( TMenuItem(Sender).Name);
end;

Zitat:
Formatierter Delphi-Quellcode:

Delphi-Quellcode:

type 
  THauptformular = class(TForm) 
  ... 
  procedure MeineProcedure(Sender: TObject); 
  ... 
end; 

... 

implementation 

... 

procedure THauptformular.MeineProcedure(Sender: TObject); 
begin 
  //Code 
end;

[quote="DeddyH"]

Delphi-Quellcode:

type 
  THauptformular = class(TForm)
  ...
  procedure MeineProcedure(Sender: TObject);
  ...
end;

...

implementation

...

procedure THauptformular.MeineProcedure(Sender: TObject);
begin
  //Code
end;

soll das im Unit_A? oder wohin

Danke