Hola,
Tal vez te sirva utilizar la función "IsThemeActive" de la librería "uxtheme.dll". Podrías declararla tal que así:
Código Delphi
[-]
function IsThemeActive : BOOL; external 'uxtheme.dll' name 'IsThemeActive';
Dicha librería solamente está disponible en Windows XP, así que la función solamente se puede utilizar en esa versión de Windows. Esto lo puedes ver explicado
aquí mismo. Es posible que eso mismo ya te sirviera para determinar si es Windows XP el sistema operativo sobre el cual corre tu aplicación, pero, ante la duda, puedes valerte para esto último del truco "
Obtener la versión de Windows" de
Trucomania.