Systémová informácia o počte procesorov.

function GetNumberOfProcessors: DWORD;
var
  SystemInfo: TSystemInfo;
begin
  GetSystemInfo(SystemInfo);
  Result := SystemInfo.dwNumberOfProcessors;
end;