if Node.HasChildren then
begin
Sender.Canvas.Font.Color := clNavy;
Sender.Canvas.Font.Style := [fsBold];
Sender.SelectionColor := clSilver; //cambia colore
end
else
begin
Sender.Canvas.Font.Color := clBlue;
Sender.Brush.Color := $00F4FEFF;
Sender.SelectionColor := clSkyBlue;; //cambia colore se non ha figli
end;
if not Node.Expanded then Node.Expand(True);