Как получить информацию о процессоре?

Code:

function GetProcessorType: integer;

{Определение типа процессора.

Функция возвращает следующие значения,

определенные в модуле Windows:

PROCESSOR_INTEL_386

PROCESSOR_INTEL_486

PROCESSOR_INTEL_PENTIUM

PROCESSOR_MIPS_R4000 - Windows NT only

PROCESSOR_ALPHA_21064 - Windows NT only}

var

sysInfo: TSystemInfo;

begin

GetSystemInfo(sysInfo);

Result := sysInfo.dwProcessorType;

end;