function CPUInfo2Str(Const cInfo : TCPUInfo; SpeedMhz : Integer = 0;
                    StartCpuFeature : TCPUFeature = cfMMX): String;
Const
  FeatureNames : array [TCPUFeature] of String =
    ('CX8', 'CMOV', 'MMX', 'MMX2', 'SSE', 'SSE2', '3DNow','3DNow2');
Var i : Integer;
    s, s1 : String;
    f : TCPUFeature;
begin
If Pos('Intel', cInfo.VendorID) > 0 then begin
  Case cInfo.Family of
    6 : Case cInfo.Model of
          3..6        : s := 'Pentium 2';
          7, 8, $A, $B : s := 'Pentium 3';
          9, $D, $E    : s := 'Pentium M';
          $F          : s := 'CoreDuo';
        end;
    $F : s := 'Pentium 4';
  end;
  s := 'Intel ' + s;
end else
  If Pos('AMD', cInfo.VendorID) > 0 then begin
    Case cInfo.Family of
      6 : Case cInfo.Model of
            3,6 :  s := 'Duron';
            1,2,4 : s := 'Athlon';
            else    s := 'AthlonXP';
          end;
      $F : s := 'Athlon64';
    end;
    s := 'AMD ' + s;
  end else
    s := cInfo.VendorID;

If (SpeedMhz <> 0) then begin
  Str(SpeedMhz, s1); s := s + ', ' + s1 + ' Mhz';
end;
Str(cInfo.CPUCount, s1);
Result := s + '; Count/Cores: ' + s1;//Num_2Str(cInfo.CPUCount);

If StartCpuFeature < High(TCPUFeature) then begin
  Result := Result + '; Features: ';
  i := 0;
  For f := StartCpuFeature to High(TCPUFeature) do
    If (f in cInfo.Features) then begin
      If (i > 0) then Result := Result + ', ';
      Result := Result + FeatureNames[f];
      Inc(i);
    end;
end;
end;

// from "Delphi in a Nutshell" book
function Sys_GetCPUSpeed(MeasTime : Integer = 100): Integer;
//Const DelayTime = 100; // measure time in ms
Var
  TimerHi, TimerLo: DWord;
  PriorityClass, Priority: Integer;
begin
PriorityClass:=GetPriorityClass(GetCurrentProcess);
Priority:=GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
  dw 310Fh // rdtsc
  mov TimerLo, eax
  mov TimerHi, edx
end;
Sleep(MeasTime);
asm
  dw 310Fh // rdtsc
  sub eax, TimerLo
  sbb edx, TimerHi
  mov TimerLo, eax
  mov TimerHi, edx
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := Round(TimerLo / (1000.0 * MeasTime));
end;

     
AMD Athlon(tm) 64 X2 Dual Core Processor 3600+