Das ist eigentlich ganz einfach. Schau dir z.B. mal in Controls.pas TControl.OnContextPopup an: Dafür
- wurde ein Typ definiert (TContextPopupEvent),
- eine private Variable diese Typs in der betreffenden Klasse deklariert (FOnContextPopup),
- und diese schließlich als property veröffentlicht (OnContextPopup).
Aufgerufen werden Events üblicherweise in einer DoXXX-Methode, im Beispiel TControl.DoContextPopup.
Das Beispiel kannst du im Normalfall direkt übernehmen, indem du überall die "Nameswurzel" ContextPopup austauscht und in der Definition von Eventtyp- und DoXXX-Methode die Parameterliste anpasst.
HTH,
Uli.