чтобы нарисовать тематическую кнопку я использую этот код:

var
  h: HTHEME;
begin
  if UseThemes then begin
    SetWindowTheme(Handle, 'explorer', nil);
    h := OpenThemeData(Handle, 'WINDOW');
    if h <> 0 then
    try
      DrawThemeBackground(h, Canvas.Handle, WP_CLOSEBUTTON, GetAeroState, ClientRect, nil);
    finally
      CloseThemeData(h);
    end;
  end
  else
    DrawFrameControl(Canvas.Handle, ClientRect, DFC_CAPTION, DFCS_CAPTIONCLOSE or GetClassicState)
end;

Этот код работает нормально, но нарисованная кнопка выглядит как из темы Windows 7, даже в Windows 8 или 10. Это можно нарисовать кнопку Закрыть, используя тему Windows 10 или 8?