TObjectList.Clear, beim 2. Aufruf ungültige Zeigeroperation

[guitar1]

Delphi-Quellcode:

TTermteilList = class(TObject)
    private
      FItems: TObjectList;
      function GetItem(const Index: Integer): TTermteil;
    public
      constructor Create(const OwnsObjects: Boolean = true);
      destructor Destroy; override;

      function Add(const ATermTeil: TTermteil): Integer;
      function Count:Integer;
      procedure Delete(Index: Integer);
      procedure Insert(Index: Integer; ATermTeil: TTermteil);
      procedure Clear;

      property Items[const Index: Integer]: TTermTeil read GetItem; default;
  end;

implementation

// ----- PRIVATE -----
function TTermteilList.GetItem(const Index: Integer): TTermteil;
begin
  result:= TTermteil(FItems[Index]);
end;

// ----- PUBLIC -----
constructor TTermteilList.Create(const OwnsObjects: Boolean = True);
begin
  inherited Create;

  FItems:= TObjectList.Create(OwnsObjects);
end;

destructor TTermteilList.Destroy;
begin
  FItems.Free;

  inherited Destroy;
end;

function TTermteilList.Add(const ATermTeil: TTermteil): Integer;
begin
  TTermteil(FItems.Add(ATermTeil));
end;

function TTermteilList.Count:Integer;
begin
  result:= FItems.Count;
end;

procedure TTermteilList.Delete(Index: Integer);
begin
  FItems.Delete(Index);
end;

procedure TTermteilList.Insert(Index: Integer; ATermTeil: TTermteil);
begin
  FItems.Insert(Index, TTermteil(ATermTeil));
end;

procedure TTermteilList.Clear;
begin
  FItems.Clear;
end;

so schaut das aus, ich habs an Hand eines Beispiels gemacht wie ich es hier in der DP gesehn hatte.