...
var
  DrawFlags: Integer;
begin
  DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;
  if {здесь проверяем нужна ли галочка, хранить это можно в Node.Data} then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;
...

...
uses ..., UxTheme;
...
var
  theme: HTHEME;
  dc: hdc;
  State: integer;
  rect: TRect;
begin
  theme := OpenThemeData(Handle, 'BUTTON');
  dc := GetDc(Panel1.Handle {будем рисовать в панели для примера});
  if {здесь проверяем нужна ли галочка, хранить это можно в Node.Data}
    then state := CBS_CHECKEDNORMAL
    else state := CBS_UNCHECKEDNORMAL;
  rect.Left := 10;
  rect.Right := 30;
  rect.Top := 10;
  rect.Bottom := 30;
  DrawThemeBackground(theme, dc, BP_CHECKBOX, state, rect, nil);
end;