Windows XP und XP-Stil erkennen

[Mario]

Hallo,

ich habe die Ressourcen in mein Programm eingebunden, um Delphi 6 den XP-Style nutzen zu lassen. Damit Karteireiter auch die richtigen Farben verwenden, nutze ich folgende Funktion:
 IF isWinXP THEN PanelBack.Color := clWindow; isWinXP ist eine Funktion, die nur das Betriebssystem überprüft. PanelBack ist ein Panel, wo ein Pagecontrol drauf liegt, welches dann automatisch die Farbe vom Panel übernimmt.

Das funktioniert ganz gut: Ist es kein Windows XP, so bleibt alles beim alten. Ist es Windows XP, so wird das Panel und damit auch das PageControl wie clWindow. Nur, wenn der Anwender und XP den klassischen Look, wie Windows 2000 wählt, geht das natürlich schief.

Wie kann ich unter XP prüfen, ob die neue Oberfläche auch tatsächlich angeschalten ist?