Hola,
Respecto de lo primero el truco que menciono proporcina una o más funciones, pero, si te fijas al final incluye una unidad completa en que alguien encapsuló lo preciso para poder utilizar como tal, como unidad.
Añade dicha unidad (te la adjunto) a tu proyecto y válete de la función "GetWindowsVersion" que incluye. Recibierás una cadena con la versión del sistema operativo instalado: si no te place este resultado no creo que te resulte complicado cambiar a tu gusto el mismo.
Respecto de lo segundo una forma podría ser la siguiente:
Código Delphi
[-]
if LoadLibrary('uxtheme.dll') = 0 then
SHowMessage('No se encuentra la librería');