Как переключать приложение между тематическим и не тематическим при запуске- time?

Очень похоже на флажок "Проект | Параметры | Приложение | Включить темы выполнения", но вместо этого динамически во время выполнения.
[Delphi XE нацелен на Win XP или Win 7]

Я пробовал немного поиграть с uxTheme.SetWindowTheme, пока безуспешно ....