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

[Kroko1999]

Delphi-Quellcode:

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

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

mal verbessern und schauen, was passiert!