procedure DrawButton(Control: TControl; Button: TThemedButton; DC: HDC; R: TRect; Focused: Boolean);

This is DrawButton, a member of class TTntThemeManagerHelper.