[ecfisa]

Hola.

Ahora te entiendo...

Te pongo un ejemplo utilizando el evento OnCustomDrawItem. En este caso, pone en rojo, negrita y tamaño = 10, aquellos nodos que posean subnodos.

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.HasChildren then
  begin
    TreeView1.Canvas.Font.Color:= clRed;
    TreeView1.Canvas.Font.Style:= [fsBold];
    TreeView1.Canvas.Font.Size:= 10; 
  end;
end;

Un saludo.