Хочется выделять некоторые строчки в TTreeView жирным или бледным

uses CommCtrl;
...
procedure SetNodeState(node :TTreeNode; Flags: Integer);
var
  tvi: TTVItem;
begin
  FillChar(tvi, Sizeof(tvi), 0);
  tvi.hItem := node.ItemID;
  tvi.mask := TVIF_STATE;
  tvi.stateMask := TVIS_BOLD or TVIS_CUT;
  tvi.state := Flags;
  TreeView_SetItem(node.Handle, tvi);
end;

И вызываем:

SetNodeState(TreeView1.Selected, TVIS_BOLD); // Текст жиpным
SetNodeState(TreeView1.Selected, TVIS_CUT); // Иконкy бледной (Ctrl+X)
SetNodeState(TreeView1.Selected, TVIS_BOLD or TVIS_CUT); // Текст жиpным
SetNodeState(TreeView1.Selected, 0); // Ни того, ни дpyгого

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 154 • TDictionary Custom Sort 3 334 • Fast Watermark Sources 3 085 • 3D Designer 4 844 • Sik Screen Capture 3 337 • Patch Maker 3 550 • Айболит (remote control) 3 655 • ListBox Drag & Drop 3 012 • Доска для игры Реверси 81 679 • Графические эффекты 3 939 • Рисование по маске 3 245 • Перетаскивание изображений 2 626 • Canvas Drawing 2 748 • Рисование Луны 2 576 • Поворот изображения 2 185 • Рисование стержней 2 168 • Paint on Shape 1 568 • Генератор кроссвордов 2 234 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 228 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 474 • Программа укладки плитки 1 216 • Генератор лабиринта 1 547 • Проверка числового ввода 1 364 • HEX View 1 497 • Физический маятник 1 358