procedure TForm1.Button1Click(Sender: TObject);
var rebx,recx,redx:dword;
str1:string;
begin
asm
mov eax,0
db 0fh,0a2h // cpuid
mov rebx,ebx
mov recx,ecx
mov redx,edx
end;
str1:=chr(rebx mod $100)+chr((rebx div $100) mod $100)+chr((rebx div
$10000) mod $100)+chr((rebx div $1000000) mod $100);
str1:=str1+chr(redx mod $100)+chr((redx div $100) mod $100)+chr((redx div
$10000) mod $100)+chr((redx div $1000000) mod $100);
str1:=str1+chr(recx mod $100)+chr((recx div $100) mod $100)+chr((recx div
$10000) mod $100)+chr((recx div $1000000) mod $100);