Verwalten von Objekten in einer Container-Klasse

[IngoD7]

Zitat von Elvis:

Bleistift:

Delphi-Quellcode:

TContactList = class
private
  fInnerList : TObjectList;
  function GetItem(aIndex: Integer): TContact;
  procedure SetItem(aIndex: Integer; aItem: TContact);
protected
  property InnerList : TObjectList read fInnerList;
public
  destructor Destroy; override;
  procedure Add(aItem : TContact);
  procedure Delete(aIndex: Integer);
  property Items[aIndex: Integer]: TContact read GetItem write SetItem;
end;

Da fehlt aber der Konstruktor. Oder wo und wann würde man fInnerList erzeugen?