//поиск в дереве структуры подстанций
procedure TFrm_evday_data.TBtnFind_tree_struClick(Sender: TObject);
var
var _node:TTreeNode;
var ItemsList:TList;
var Noddy:TTreeNode; //для процедуры поиска в дереве статей бюджета
var Searching :Boolean; //для процедуры поиска в дереве статей бюджета
var SearchTarget:string; //для процедуры поиска в дереве статей бюджета
var FIND_ITEMS:integer; //для процедуры поиска в дереве статей бюджета

begin
if (Ed_find_stru.Text='') then begin
MessageDlg('Нет значения для поиска!', mtWarning,[mbOk], 0);
end;
try
SearchTarget:= Ed_find_stru.Text;//присвоить переменной значение для поиска
Noddy := Tree_ps.Items[0]; //в дереве стать на 0 уровень
Searching := true; //включить поиск
while (Searching) and (Noddy <> nil) do
begin
if StrPos(PChar(Noddy. Text), PChar(SearchTarget))<> nil then
begin
Searching := False;
Tree_ps.Selected := Noddy;
Tree_ps.SetFocus;
FIND_ITEMS:= Tree_ps.Selected.AbsoluteIndex+1;
end else
begin
Noddy := Noddy.GetNext;
end;
end;
except
MessageDLG('Ошибка открытия запроса(DM.Query_stru_ps).Вызовите программиста!',mtError,[mbOk],0);
end;
end;

//дальнейший поиск в дереве структуры подстанций
procedure TFrm_evday_data.TBtnFindNext_tree_struClick(Sender: TObject);
begin
if (Ed_find_stru.Text='') then begin
MessageDlg('Нет значения для поиска!', mtWarning,[mbOk], 0);
end;
try
SearchTarget:= Ed_find_stru.Text;
Noddy:=Tree_ps.Items[FIND_ITEMS];
Searching := true;
while (Searching) and (Noddy <> nil) do
begin
if StrPos(PChar(Noddy. Text), PChar(SearchTarget))<> nil then
begin
Searching := False;
Tree_ps.Selected := Noddy;
Tree_ps.SetFocus;
FIND_ITEMS:= Tree_ps.Selected.AbsoluteIndex+1;
end else
begin
Noddy := Noddy.GetNext;
end;
end;
except
MessageDLG('Поиск завершен.',mtInformation,[mbOk],0);
end;
end;
//------------------------------------------------------------------------------
У меня работает. Потом при поиске можно вытянуть полный путь к узлу на котором стоишь.

//определение пути
function TFrm_evday_data.GetFullPath(t:TTreeNode):String ;
begin
If t.Parent<>Nil then
Result:=GetFullPath(t.Parent)+'\'+t.Text
else Result :=Result+t.Text+'\';
end;