1:
2:
3:
4:
5:
6:
7:
8:

if "SollEintragFett" then
begin
treeview.font.style := [bold];
addnode;
treeview.font.style := [];
end
else
addnode;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure SetNodeBoldState(Node: TTreeNode; Value: Boolean);
var
  TVItem: TTVItem;
begin
  if not Assigned(Node) then
  Exit;
  with TVItem do
    begin
    mask := TVIF_STATE or TVIF_HANDLE;
    hItem := Node.ItemId;
    stateMask := TVIS_BOLD;
    if Value then
      state := TVIS_BOLD
      else
        state := 0;
    TreeView_SetItem(Node.Handle, TVItem);
    end;
end;

//Selektierten Node auf Bold setzen
  SetNodeBoldState(TreeView1.Selected,True);
//Bold aufheben
  SetNodeBoldState(TreeView1.Selected,False);