procedure TWinControl.WMNCPaint(var Message: TMessage);
begin
...
 if ThemeServices.ThemesEnabled and (csNeedsBorderPaint in ControlStyle) then
   ThemeServices.PaintBorder(Self, False);
end;