function GetCpuID: string; var _eax, _ebx, _ecx, _edx: Longword; s, s1, s2: 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 := IntToH