Раскрытие пути к элементу TOutline по его индексу

var
  Outline: TOutline;

procedure TSearchDlg.ExpandPathToFoundItem(const FoundItemIndex: Longint);
{----------------------------------------------------------------------------
 Открываем путь к данному элементу (элемент определяется номером индекса).
 До корневого элемента необходимо раскрывать только родителей.
 ----------------------------------------------------------------------------}
var
  ItemIndex: Longint;
  Found: Boolean;
  LastCh: Longint;
  Path: string;
  ItemText: string;
  SepPos: Integer;
  OldSep: string;
begin
  {Сохраняем старый ItemSpearator}
  OldSep := Outline.ItemSeparator;
  {Устанавливаем новый ItemSeparator}
  Outline.ItemSeparator := '\';
  {Получаем полный путь к TOutlineNode и добавляем '\'.
  Это делается для упрощения последующего алгоритма}
  Path := Outline.Items[FoundItemIndex].FullPath + '\';
  {Зацикливаемся до тех пор, пока не будет достигнут конец пути}
  while Length(Path) > 0 do
  begin
    {Определяем в пути позицию первого '\'}
    SepPos := Pos('\', Path);
    {Изолируем элемент TOutlineNode}
    ItemText := Copy(Path, 1, SepPos - 1);
    {Определяем индекс TOutlineNode}
    ItemIndex := Outline.GetTextItem(ItemText);
    {Раскрываем его}
    Outline.Items[ItemIndex].Expand;
    {Вырезаем из строки раскрытый TOutlineNode}
    Path := Copy(Path, SepPos + 1, Length(Path) - SepPos + 1);
  end;
  {Восстанавливаем оригинальный ItemSeparator}
  Outline.ItemSeparator := OldSep;
end;