Dynamisches Erstellen eines Menü im Delphi

[Atlas-25]

Hallo
ich brauche Hilfe wieder,
ich habe folgendes Problem: in einem Hauptformular wird eine Procedure aus einem anderen Unit (Unit_A) aufgerufen.
Diese Procedure sorgt dafür, dass das Menü zur Laufzeit aufgebaut wird.
es funktioniert alless wunderbar. Mein Problem ist, wie kann ich MenüItem ein OnClick Erreignis zuweisen.
Mein Versuch unten scheitert an unten gennanten Fehlermeldungen.

Wer kann mir helfen?
Formatierter Delphi-Quellcode:

Delphi-Quellcode:

Hauptformular:
unit HauptFormular;
interface
uses Unit_A, .....;
....

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

//Unit_A
Unit_A

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;

[Fehler] Unit_A.pas(218): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'
[Fehler] Unit_A.pas(224): Bei der vorherigen Deklaration von test wurde die Direktive 'overload' nicht angegeben
[Fehler] Unit_A.pas(61): Ungenügende Forward- oder External-Deklaration: 'MeineProcedure'
[Fataler Fehler] Hauptformular.pas(14): Verwendete Unit 'Unit_A.pas' kann nicht compiliert werden