Use TList::Delete, change some output

No match.