Suchen in Treeview

[Delphiturbo]

Hallo

hier ist ein Demo von mir aber für einen ListBox
Ich möchte den gleichen Code in Treeview verwenden
hier ist der Code :

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
const
  indexStart = -1;
var
  search : array[0..128] of Char;
begin
  //make sure Length(Edit1.Text) <= 128
  StrPCopy(search, Edit1.Text) ;
  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  search : array[0..128] of Char;
  indexactuell : integer;
begin
indexactuell := Listbox1.Itemindex;

  //make sure Length(Edit1.Text) <= 128
  StrPCopy(search, Edit1.Text) ;
  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexactuell, LongInt(@search)) ;
  indexactuell := indexactuell + 1;
end;

Wie kann ich das in Treeview umsetzen ?
Ich habe ein Tutorial hier aber das das Problem
man muss den Satz komplet eingeben sonst erscheint eine Meldung "nicht gefunden!"
Tutorial