cambiar fuente en TTreeView

[nicocer]

rocedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
      with Sender.Canvas do
        Case Node.Level of
        0: begin
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clGray;
             Font.Name:='Arial';
             Font.Size:=8;
             Font.Style:=[];
           end;
        1: begin
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clRed;
             Font.Name:='Verdana';
             Font.Size:=7;
             Font.Style:=[fsItalic,fsUnderline];
           end;
        2: begin
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clGreen;
             Font.Name:='Times New Roman';
             Font.Size:=9;
             Font.Style:=[fsItalic];
           end;
        else begin
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clNavy;
             Font.Name:='Verdana';
             Font.Size:=7;
             Font.Style:=[fsBold];
           end;
        end;//Case
end;

Este codigo me funciona para cambiar los colores de los items.
Lo q me queda por hacer es poder cambiar el tipo de fuente de un Text.
Algo encontre en el foro. Si lo puedo resolver mando el code.

Para simplificar las cosas hay alguna manera de Cambiarle la Font a un Caption de un Lable, pero con la particularidad de q por ejemplo. La primer letra del caption sea de un tipo de letra y las demas de otro tipo de letra?????


Gracias

nicocer