.

function GetCPUID : TCPUID; assembler; register;
asm
  PUSH    EBX        {Save affected register}
  PUSH    EDI
  MOV    EDI,EAX    {@Resukt}
  MOV    EAX,1
  DW      $A20F      {CPUID Command}
  STOSD       {CPUID[1]}
  MOV    EAX,EBX
  STOSD              {CPUID[2]}
  MOV    EAX,ECX
  STOSD              {CPUID[3]}
  MOV    EAX,EDX
  STOSD              {CPUID[4]}
  POP    EDI {Restore registers}
  POP    EBX
end;