TreeView - rozwijanie listy tylko po kliknięciu w rodzica

Wydaje się być proste i oprogramowanie ale... moje pytanie sięga głębiej. Czy jest możliwość by po wyszukaniu Rodzica (Przez Edit.text funkcja poniżej)

  GetNodeByText(Lista_X,Edit1.Text,true); - odwołanie do funkcji

  { Private declarations }
     function GetNodeType(  Node : TTreeNode  ) : eNodeType; - deklaracja

function GetNodeByText
(ATree : TTreeView; AValue:String;
 AVisible: Boolean): TTreeNode;
var
    Node: TTreeNode;
begin
  Result := nil;
  if ATree.Items.Count = 0 then Exit;
  Node := ATree.Items[0];
  while Node <> nil do
  begin
    if UpperCase(Node.Text) = UpperCase(AValue) then
    begin
      Result := Node;
      if AVisible then
        Result.MakeVisible;
      Break;
    end;
    Node := Node.GetNext;
  end;
end;

Chcę, aby po wyszukaniu danego "Rodzica" Program rozwinął listę o ile oczywście lista posiada zapisane "Dzieci" Czy taka możliwość istnieje?

1. zamień UpperCase(Node.Text) = UpperCase(AValue) na SameText(Node.Text, AValue)
2. Result.Expand(True)

Już się robi :=)

Nietety, po dokonaniu wskazanych zmian, pojawia się error 00468896 :(

Jedyne miejsce jakie kojarzę z tym Result to funkcja w kodzie ...

więc tak, pokazujesz nowy kod z dodaną linijką a następnie pokazujesz w którym miejscu się wysypuje (hint: poczytaj co to debugger i go użyj)