[BoRoV]

Вот отлично работает, что ты там не так делаешь, что у тебя ничего не работает. У тебя subitem'ы есть?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    if Pos(Edit1.Text, TreeView1.Items[i].Text) <> 0 then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      TreeView1.SetFocus;
      break;
    end;
end;