Delphi takes CPU number

From the Internet to find the CPU number in the D7 test passed the Push,move,pop ... It's hard.

I can only take doctrine the current level.

<summary>
Take CPU number
</summary>
<returns></returns>
function TForm1.GetCPUID:string;
Var
_eax, _EBX, _ECX, _edx:longword;
S, S1, s2:string;
Begin
Asm
Push EAX
Push EBX
Push ECX
Push edx
MOV eax,1
DB $0f, $A 2
MOV _eax,eax
MOV _ebx,ebx
MOV _ecx,ecx
MOV _edx,edx
Pop edx
Pop ecx
Pop ebx
Pop eax
End
S: = Inttohex (_eax, 8);
S1: = Inttohex (_edx, 8);
S2: = Inttohex (_ECX, 8);
Result: = s + s1 + s2;
End

Delphi takes CPU number