Clear von TList überschreiben mit Objekten

[Luckie]

Delphi-Quellcode:

function TPageCollection.GetItem(Index: Integer): TImageEnVect;
begin
  Result := FInnerList.Items[Index];
end;

procedure TPageCollection.SetItem(Index: Integer; Item: TImageEnVect);
begin
  FInnerList.Items[Index] := Item;
end;

Und dann die Property dazu:
property Items[Index: Integer]: TImageEnVect read GetItem write SetItem;