Colorir parte de um item no TreeView

Tarde, estou tentando fazer uma pesquisa em um TreeView, quero que ao digitar a palavra "Cli" em um edit, seja percorrido o TreeView e ao achar um item que possua a palavra "Cli", como por exemplo "Listagem de Cliente" ou "Cadastro de Clientes", seja pintado de vermelho apenas o "Cli" e o resto fique preto.
Alguém sabe como?

- Carrego o TreeView atraves de uma tabela no banco FireBird
- Utilizo Delphi 7