Dazu benötigst Du die Funktion GetThemeSysColor aus der Themes-
DLL.
In D7 sollte die Funktion schon in Delphi vorhanden sein. Falls nicht mußt du entsprechende Themes-Komponenten dir besorgen (z.B. das Elpack bietet XP-Theming auch für altere Delphi-Versionen/Windows-Versionen an).