You can use the unit UxTheme.pas
and call the IsThemeActive
function.
Delphi 7 was the first version that shipped with it but it should be possible to use that unit in older versions aswell as it is open source (written by Mike Lischke originally) that just uses WinAPI.