Delphi 读取CPU Id

在网上找了很久，终于找了一段能读出正确CPU ID 的代码，以下代码经过Delphi7测试

procedure TForm1.Button1Click(Sender: TObject);

var

   _eax, _ebx, _ecx, _edx: Longword;

   s, s1, s2,result: string;

begin

  asm

     push eax

     push ebx

     push ecx

     push edx

     mov eax,

     db $0F,$A2

     mov _eax,eax

     mov _ebx,ebx

     mov _ecx,ecx

     mov _edx,edx

     pop edx

     pop ecx

     pop ebx

     pop eax

  end;

   s := IntToHex(_eax, );

   s1 := IntToHex(_edx, );

   s2 := IntToHex(_ecx, );

   result:=s+s1+s2;

   edit1.Text:=result;

end;