function GetCPUName:string;

function GetCPUName:string;
type
  TRegisters=record
    case Integer of
      0:(EAX,EBX,ECX,EDX:Cardinal);
      1:(Str:array[0..15] of Char);
  end;

  function IsCPUID_Available:Boolean; register;
  asm
  PUSHFD
  POP    EAX
  MOV    EDX, EAX
  XOR    EAX, $200000;
  PUSH    EAX
  POPFD
  PUSHFD
  POP    EAX
  XOR    EAX, EDX
  SETNZ  AL
  end;

  procedure GetCPUID(Param:Cardinal; var Registers:TRegisters); register;
  asm
  PUSH    EBX
  PUSH    EDI
  MOV    EDI, Registers
  XOR    EBX, EBX
  XOR    ECX, ECX
  XOR    EDX, EDX
  CPUID
  MOV    TRegisters(EDI).&EAX, EAX
  MOV    TRegisters(EDI).&EBX, EBX
  MOV    TRegisters(EDI).&ECX, ECX
  MOV    TRegisters(EDI).&EDX, EDX
  POP    EDI
  POP    EBX
  end;
var
  Registers:TRegisters;
begin
  Result:='';
  if not IsCPUID_Available then Exit;
  GetCPUID($80000000,Registers);
  if Registers.EAX>=$80000004 then begin
    GetCPUID($80000002,Registers);
    Result:=Result+Registers.Str;
    GetCPUID($80000003,Registers);
    Result:=Result+Registers.Str;
    GetCPUID($80000004,Registers);
    Result:=Result+Registers.Str;
  end;
end;

  function NtQuerySystemInformation (
              SystemInformationClass : DWORD;    // тип требуемой информации
                    SystemInformation : Pointer;  // указатель на буфер, в который вернется информация
              SystemInformationLength : DWORD;    // размер буфера в байтах
                    var ReturnLength : DWORD    // сколько байт было возвращено или требуется
                                    ) : DWORD; stdcall; external 'ntdll.dll';
var
      nOldIdleTime : int64 = 0;
    nOldSystemTime : int64 = 0;
        nNewCPUTime : double = 0;
{ ......................... }
function CPUUsage : string;
type
  SYSTEM_BASIC_INFORMATION = packed record

                  AlwaysZero : ULONG;
        uKeMaximumIncrement : ULONG;
                  uPageSize : ULONG;
    uMmNumberOfPhysicalPages : ULONG;
      uMmLowestPhysicalPage : ULONG;
      uMmHighestPhysicalPage : ULONG;
      uAllocationGranularity : ULONG;
          pLowestUserAddress : POINTER;
      pMmHighestUserAddress : POINTER;
        uKeActiveProcessors : POINTER;
        bKeNumberProcessors : byte;
                      Filler : array [0..2] of byte;
  end;

  SYSTEM_TIME_INFORMATION = packed record
          nKeBootTime : int64;
        nKeSystemTime : int64;
      nExpTimeZoneBias : int64;
    uCurrentTimeZoneId : ULONG;
            dwReserved : DWORD;
  end;

  SYSTEM_PERFORMANCE_INFORMATION = packed record
    nIdleTime : int64;
      dwSpare : array [0..75] of DWORD;
  end;

const
        SystemBasicInformation = 0;
    SystemTimeOfDayInformation = 3;
  SystemPerformanceInformation = 2;
var
            SBI : SYSTEM_BASIC_INFORMATION;
            STI : SYSTEM_TIME_INFORMATION;
            SPI : SYSTEM_PERFORMANCE_INFORMATION;

          dummy : DWORD;
begin
  if NTQuerySystemInformation (SystemBasicInformation,
                              @SBI,
                              SizeOf (SYSTEM_BASIC_INFORMATION),
                              dummy) = NO_ERROR then
    if NTQuerySystemInformation (SystemTimeOfDayInformation,
                                @STI,
                                SizeOf (SYSTEM_TIME_INFORMATION),
                                dummy) = NO_ERROR then
      if NTQuerySystemInformation (SystemPerformanceInformation,
                                  @SPI,
                                  SizeOf (SYSTEM_PERFORMANCE_INFORMATION),
                                  dummy) = NO_ERROR then
        begin
          if (nOldIdleTime <> 0) then
          begin
            nNewCPUTime := RoundTo( (100 - ((SPI.nIdleTime - nOldIdleTime)
                                  / (STI.nKeSystemTime - nOldSystemTime) * 100)
                                  / SBI.bKeNumberProcessors + 0.5),-2);
            if (nNewCPUTime <> nOldIdleTime) then
            result := FloatToStr(nNewCPUTIME);

          end;
            nOldIdleTime := SPI.nIdleTime;
          nOldSystemTime := STI.nKeSystemTime;
        end;
end;

  asm
    mov eax,0
    cpuid
    mov dword ptr EBXstr+1,EBX
    mov byte ptr EBXstr,4
    mov dword ptr ECXstr+1,ECX
    mov byte ptr ECXstr,4
    mov dword ptr EDXstr+1,EDX
    mov byte ptr EDXstr,4
  end;