Eigene Funktion über ereigniss aufrufen

[Tigermoon]

Guten Morgen,

Nach klick auf einen Button erzeuge ich 24 Bilder
diesen Bilder möchte ich per OnClickeieigniss eine eigengeschriebene Funktion übergeben mit einem Parameter

Delphi-Quellcode:

   while zaehlen <= 24 do
   begin

      Bild[zaehlen] := TImage.Create(Memoryfeld);
      Bild[zaehlen].Parent := Memoryfeld;
      Bild[zaehlen].Picture.loadfromfile('back.jpg');
      Bild[zaehlen].Top := top;
      Bild[zaehlen].left := left;
      Bild[zaehlen].Visible := true;
      Bild[zaehlen].Cursor := crHandPoint;
      // -->> Bild[zaehlen].OnClick := aufdeckenOnClick(zaehlen);

      left := left + 120;

      if anzahl = 6
      then begin
        top := top + 100;
        left := 50;
        anzahl := 0;
      end;
      
      anzahl := anzahl + 1;
      zaehlen := zaehlen + 1;

   end;

Frage
was ist daran falsch?

als fehlermeldung erhalte ich das hier
[Fehler] Spielfeld.pas(69): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

die Funktion ist vorhanden und deklariert...

Tigermoon