Hola.
Con el mismo ejemplo, para pintar el fondo sería:
Código Delphi
[-]
...
if Node.HasChildren then
begin
TreeView1.Canvas.Brush.Color:= clYellow; TreeView1.Canvas.Font.Color:= clRed;
TreeView1.Canvas.Font.Style:= [fsBold];
TreeView1.Canvas.Font.Size:= 10;
end;
...
Un saludo.