Хочется выделять некоторые строчки в 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 (Тетрис) 113 • TDictionary Custom Sort 3 303 • Fast Watermark Sources 3 052 • 3D Designer 4 806 • Sik Screen Capture 3 303 • Patch Maker 3 521 • Айболит (remote control) 3 622 • ListBox Drag & Drop 2 981 • Доска для игры Реверси 81 485 • Графические эффекты 3 906 • Рисование по маске 3 217 • Перетаскивание изображений 2 601 • Canvas Drawing 2 723 • Рисование Луны 2 547 • Поворот изображения 2 155 • Рисование стержней 2 155 • Paint on Shape 1 560 • Генератор кроссвордов 2 218 • Головоломка Paletto 1 759 • Теорема Монжа об окружностях 2 203 • Пазл Numbrix 1 678 • Заборы и коммивояжеры 2 049 • Игра HIP 1 274 • Игра Go (Го) 1 220 • Симулятор лифта 1 465 • Программа укладки плитки 1 211 • Генератор лабиринта 1 537 • Проверка числового ввода 1 345 • HEX View 1 484 • Физический маятник 1 351