Delphi Не прорисовывается компонент.

1) в GetWindowDc нет необходимости HDC можно получить из Sender.Canvas.Handle
2) GetBoundsRect тоже не нужен, т.к. отрисовываем только один нод - можно использовать Node.DisplayRect(True)
3) лучше обрабатывать событие OnAdvancedCustomDrawItem так:
//код использует Vcl.Themes
procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
 Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
 var PaintImages, DefaultDraw: Boolean);
var
 Details: TThemedElementDetails;
 r: trect;
begin
 if Stage = cdPostPaint then
 begin
   if cdsHot in State then
     Details := StyleServices.GetElementDetails(tbPushButtonHot)
   else if cdsFocused in State then
     Details := StyleServices.GetElementDetails(tbPushButtonDefaulted)
   else if cdsDisabled in State then
     Details := StyleServices.GetElementDetails(tbPushButtonDisabled)
   else
     Details := StyleServices.GetElementDetails(tbPushButtonNormal);
   r := Node.DisplayRect(True);
   OffsetRect(r, -2, 0);
   r.Width := r.Width + 4;
   StyleServices.DrawElement(Sender.Canvas.Handle, Details, r);
   StyleServices.DrawText(Sender.Canvas.Handle, Details, Node.Text, r,
     TTextFormatFlags(DT_Center or DT_END_ELLIPSIS), Sender.Canvas.Font.Color);
   DefaultDraw := False;
   PaintImages := True;
 end
 else
 begin
   PaintImages := True;
   DefaultDraw := True;
 end;
end;