function GetByteFromDWord(value:DWord;bytenum:byte):byte;
var
  temp:byte;
  tmp:DWord;
begin
  temp:=(bytenum-1)*8;
  tmp:=$ff;
  tmp:=tmp shl temp;
  value:=value and tmp;
  value:=value shr temp;
  result:=value;
end;

procedure GetCPUflags(func:DWord;var eaxtmp, ebxtmp, ecxtmp, edxtmp : DWord); register;
var
  eaxtemp,ebxtemp,ecxtemp,edxtemp:DWord;
begin
asm
  pushad
  pushf
  mov eax,func
  cpuid
  mov eaxtemp,eax
  mov ebxtemp,ebx
  mov ecxtemp,ecx
  mov edxtemp,edx
  popf
  popad
end;
eaxtmp:=eaxtemp;
ebxtmp:=ebxtemp;
ecxtmp:=ecxtemp;
edxtmp:=edxtemp;
end;

function GetCPUString:string48; stdcall;
var
  i,j:byte;
  temp:string48;
begin
for i:=0 to 2 do
  begin
    GetCPUflags($80000002+i,eaxreg,ebxreg,ecxreg,edxreg);

    for j:=1 to 4 do
      temp:=temp+chr(GetByteFromDWord(eaxreg,j));

    for j:=1 to 4 do
      temp:=temp+chr(GetByteFromDWord(ebxreg,j));

    for j:=1 to 4 do
      temp:=temp+chr(GetByteFromDWord(ecxreg,j));

    for j:=1 to 4 do
      temp:=temp+chr(GetByteFromDWord(edxreg,j));
  end;
  result:=temp;
end;