Szukanie i zaznaczanie itema w TreeView

Witam wszystkich.

Od razu przejdę do rzeczy. Mam na formie komponenty: edit, button oraz treeview posiadający itemy, subitemy itd.

Chcę, by po zaznaczeniu itema treeviewa posiadającego dzieci i kliknięciu na button, program szukał w dzieciach, itema, który ma tekst taki jak jest w edicie i go zaznaczył (tak jakby się normalnie na niego kliknęło, czyli np. onchange, onclick by się wtedy realizowały). I ewentualnie drzewo się rozwinęło.

Siedzę już nad tym jakiś czas, ale ni w ząb nie mogę dojść do tego jak to zrobić. Proszę was o pomoc i proszę o wyrozumiałość, gdyż nie jestem jeszcze najlepszym programistą.

do buttona

var
  I: Integer;
begin
for I:=0 to TreeView1.Items.Count-1 do
  if (TreeView1.Items[I].Text = Edit1.Text) and (TreeView1.Items[I].Parent = TreeView1.Selected) then
  begin
    TreeView1.Selected :=  TreeView1.Items[I];
    Break;
  end;

zaznacza itema...