Clear von TList überschreiben mit Objekten

[Luckie]

Ich habe es jetzt so:

Delphi-Quellcode:

procedure TPageCollection.Clear;
var
  i: Integer;
begin
  for i := Self.FInnerList.Count - 1 downto 0 do
  begin
    TObject(Self.FInnerList.Items[i]).Free;
    Self.FInnerList.Items[i] := Nil;
    Self.FInnerList.Delete(i);
  end;
//  inherited;
  //FInnerList.Clear;
end;

Aber da bekomme ich in der Assign-Methode auch wieder eine AV.

Die Logdatei von FastMM wird übrigens immer größer.