1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

type
  TListe<ListType> = class
    type
      PListType = ^ListType;
  private
    mListe: TList;
    function Get(Index: Integer): ListType;
    procedure Put(Index: Integer; Item: ListType);
  public
    constructor Create();
    destructor Free();
    procedure Add(t: ListType);
    procedure Delete(id: integer);
    function Count(): integer;
    property Items[Index: Integer]: ListType read Get write Put; default;
  end;

procedure TListe<ListType>.Add(t: ListType);
var
   knoten: PListType;
begin
   new(knoten);
   knoten^:=t;
   mListe.Add(knoten);
end;

constructor TListe<ListType>.Create;
begin
   inherited Create;
   mListe:=TList.Create;
end;

constructor TTicker.Create;
begin
   inherited Create;
   mZeit:='';
   mZuschauer:='';
   mSchiedsrichter:='';
   mHeimMannschaft:='';
   mAuswaertsMannschaft:='';
   mHeimAufstellung:=TListe<TSpieler>.Create();
   mAuswaertsAufstellung:=TListe<TSpieler>.Create();
end;

procedure TTicker.Update();
var
   Spieler: TSpieler;
begin
   ...
   mHeimAufstellung.Add(Spieler);
   ...
end;