Esto lo había mirado hace tiempo:
https://www.ajpdsoft.com/modules.php...etails&lid=127
Está la explicación y puedes descargar código fuente y un proyecto que te obtiene esta información (a ver si es lo necesitas) :
Lo he probado en
Delphi 11 y funciona perfectamente.