Получение типа процессора

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;