with ThemeServices do
  if ThemesEnabled then  begin
    Details := GetElementDetails(teButton);
    DrawElement(Canvas.Handle, Details, R);
  end;