Use TList::Delete instead of TList::Clear()

No match.