Cómo utilizar DELPHI para obtener el número de serie de la CPU

El código de muestra es el siguiente: procedimiento?TForm1.Button1Click(Sender:?TObject type

TCPUID?=?array[1..4]?of?longint; función?GetCPUID :?TCPUID; asm

PUSHEBX PUSHEDI MOV?EDI, EAX MOV?EAX, 1 DW?$A20F STOSD MOV?EAX, EBX STOSD MOV.EAX, ECX STOSD MOV?EAX, EDX STOSD POP?EDI POP?EBX end;

var aCpuId:?TCpuID;

begin aCpuId?GetCPUID; ShowMessage('CPU? El número de serie es:?') ?IntToHex( aCpuId[4] , 8)? ?IntToHex(aCpuId[1], 8));

end;

Captura de pantalla del código en ejecución:

Comparación con el real: