Позиционирование в UniTreeView

[Patrick1968]

Добрый день.

Подскажите, пожалуйста, как программно позиционироваться на TreeView. Если, к примеру, я его заполнил нодами, затем сделать MyNode := MyTree.Selected; Получим nil, а вот как сьимитировать клик мыши по дереву. SetFocus не работает

[x11]

procedure TfmdSelTree.edSearchChange(Sender: TObject);
Var
  n: TUniTreeNode;
begin

  n := FindNodeByText(TUniEdit(Sender).Text);// найти введенный пользователем текст

  if Assigned(n) then
  begin
    n.Selected := true;
    n.MakeVisible;
  end;
end;



function TfmdSelTree.FindNodeByText(const Text: string): TUniTreeNode;
begin
  if text.IsEmpty then
    exit(nil);

  result := fmdSelTree.treeSel.Items.GetFirstNode;


  while Assigned(result) do
  begin
    if result.Text.ToLowerInvariant.Contains(text.ToLowerInvariant) then
      exit(result);

    result := result.GetNext;
  end;// while
end;