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

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;