Pesquisa dinâmica por eliminação com Edit e TreeView...

Bom dia Galera...

Gostaria de obter uma ajuda com essa minha dificuldade, pois necessito que conforme o usuario vai digitando no edit o treeview vai carregando conforme o que foi digitado, eu ate achei um post com esse código abaixo:

var
W_xx: integer;

for W_xx := 0 to TV.Items.Count -1 do
begin
if Pos(AnsiUpperCase(E_BUS_TV.Text), AnsiUpperCase(TV.Items[W_xx].Text)) > 0 then
begin

TV.Select(TV.Items[W_xx]);
Break;
end;
end;

mas esse código ele vai localizando o item, mas gostaria q conforme fosse digitado aparecesse somente o item q estou procurando no treeview ou seja eliminasse os outros itens...

alguem pode me ajudar...

desde já agradeço