还是TREEVIEW 问题，请再指教！

都可以查呀，你的父节点有和子节点同名的吗？如果是的，假设你的父节点的level都小于2（第一级节点level为0，第二级为1，依次类推）
procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=edit4.Text ;
  for i:=0 to TreeView1.items.count-1 do
    if （treeview1.Items.Item[i].Text =s）and  (treeview1.Items.Item[i].level<2) then //多加一个判断
      begin
        treeview1.Items.Item[i].Selected:=true ;
        break;
      end;
end;