Eigene Ereignisse für ein Object

[Captnemo]

Ich habe zwar ein Function Add

Delphi-Quellcode:

type
  TEntries=class(TCollection)
  private
    FonEntryAdd: TOnEntryAdd;
    function getItem(index: Integer): TEntry;
    procedure setItem(index: Integer; const Entry: TEntry);
  public
    property Items[index: Integer]: TEntry read getItem write setItem; default;
    function Add: TEntry; virtual;
    property OnEntryAdd: TOnEntryAdd read FonEntryAdd write FonEntryAdd;
  end;

implementation

{ TEntries }

function TEntries.Add: TEntry;
begin
  Result := TEntry(inherited Add);
  if Assigned(FonEntryAdd) then
    self.OnEntryAdd(Self);
end;

Aber die wird nach dem Start nie aufgerufen, also mit den im OI vordefinierten Entries.