Event Liste ("TEventList")

[igel457]

Hallo,

ich möchte eine Liste erstellen, in die man mehrere Events einfügen kann.
Ich habe mir folgendes überlegt:

Delphi-Quellcode:

type
  TPushEvent = procedure(ALua:Lua_State;ASender:TObject;ATable:integer);

type TPushEventList = class(TList)
  private
    function GetItem(AIndex:integer):TPushEvent;
    procedure SetItem(AIndex:integer;AItem:TPushEvent);
  protected
  public
    property Items[AIndex:integer]:TPushEvent read GetItem write SetItem;default;
  published
end;


{ TPushEventList }

function TPushEventList.GetItem(AIndex:integer):TPushEvent;
begin
  result := inherited Items[AIndex];
end;

procedure TPushEventList.SetItem(AIndex:integer;AItem:TPushEvent);
begin
  inherited Items[AIndex] := AItem; <---
end;

Leider funktioniert dieser Code nicht. An der mit dem Pfeil makierten Stelle meckert er "Nicht genügend wirkliche Parameter".

Außerdem kommt die selbe Fehlermeldung, wenn ich ein Event einfügen möchte:
  AList.Add(OnPush); Ich kenne mich leider mit Events nicht so richtig aus, garantiert ist die Lösung ganz einfach.

Danke für eure Hilfe,
igel457