1:
2:

  FList : Array Of TCustomIni Abstract; 
{TCustomIni ist eine Basisklasse auf die sich Diverse andere Klassen aufbauen. Diese ersetzen dann auch TCustomIni}					

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:

Type
  
  TTest= Class(TCustomIni);
    ...
  End;

  TCustomIniList= Class(TObject);
  Public
    Count: Byte;    
    List: Array Of TCustomIni Abstract;
    Function New: Byte;
    ...
  End;

  TTestList= Class(TCustomIniList);
  Private
    List:Array Of TTest Override;
  End;
  
  ...
  
Function TCustomIniList.New: Byte;
Begin
  Result:= Count;  
  Inc(Count);
  SetLength(List, Count);
  <span style="font-style: italic">List[Result]:= TCustomIni.Create;</span>
  {Da aber List abstrakt ist wird dies nicht in TTestList funktionieren schliesslich ist es dort ja ein TTest Liste}
End;