Estoy con un tema de WMI y esto creo (ahora lo se seguro) también se puede hacer utilizando "Windows Management Instrumentation". Para probarlo he realizado un ejemplo donde se vé cómo obtener la información.
La información completa y explicación detallada se
puede ver aquí, aun así te adjunto el ejemplo.
Debes importar para ello, desde Delphi la librería:
“Microsoft WMI Scripting v1.X Library (Version 1.X)“ de la forma estandard (ahí se explica cómo).