function getNodeCalled
( tree : tTreeView
; Name:string
; shouldMakeVisible: Boolean
): tTreeNode;
var node: tTreeNode;
begin
result := nil;
if tree.Items.Count > 0 then 
  begin
  node := tree.Items[0];
  while node <> nil do
    begin
    if upperCase(node.text) = upperCase(name) then
      begin
      result := node;
      if shouldMakeVisible then
        result.makeVisible;
      break;
      end;
    node := node.getNext;
    end;
  end;
end;