K210.ORG

function FindNodeByText(RootNode: TTreenode; Text: String): TTreenode;

begin

   Result := RootNode;

   while Result<>nil do begin

      If AnsiCompareText(Text, Result.Text)=0 then Break;

      Result:= Result.GetNext;

   end;

end;