Прочитать свойства системы

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  SysInfo: TSystemInfo;

begin

  GetSystemInfo(SysInfo);

  with ListBox1.Items, SysInfo do

  begin

    Add('ProcessorArchitecture:' + IntToStr(wProcessorArchitecture));

    Add(FloatToStr(dwPageSize) + ' Kb page size');

    Add(Format('Lowest memory address accessible to applications and DLL - %p',

      [lpMinimumApplicationAddress]));

    Add(Format('Highest memory address accessible to applications and DLL - %p',

      [lpMaximumApplicationAddress]));

    Add('OEMID:' + IntToStr(dwOemId));

    Add('ActiveProcessorMask:' + IntToStr(dwActiveProcessorMask));

    Add(IntToStr(dwNumberOfProcessors) + ' - number of processors');

    Add('ProcessorType:' + IntToStr(dwProcessorType));

    case wProcessorLevel of

      3: Add('Intel 80386 processor level');

      4: Add('Intel 80486 processor level');

      5: Add('Intel Pentium processor level');

    end;

    Add(FloatToStr(dwAllocationGranularity / 1024) +

      ' Kb - granularity with which virtual memory is allocated');

    Add('ProcessorRevision:' + IntToStr(wProcessorRevision));

  end;

end;