Реализация дерева в Delphi?

Кто-нибудь знает готовую реализацию trie [sic] в Delphi? Оптимизированное дерево было бы еще лучше.

Заранее спасибо!