1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.Button1Click(Sender: TObject);
const
  PROCESSOR_INTEL_386 = 386;
  PROCESSOR_INTEL_486 = 486;
  PROCESSOR_INTEL_PENTIUM = 586;
  PROCESSOR_MIPS_R4000 = 4000;
  PROCESSOR_ALPHA_21064 = 21064;
  PROCESSOR_ARCHITECTURE_INTEL = 0;
  PROCESSOR_ARCHITECTURE_MIPS = 1;
  PROCESSOR_ARCHITECTURE_ALPHA = 2;
  PROCESSOR_ARCHITECTURE_PPC = 3;
  PROCESSOR_ARCHITECTURE_UNKNOWN = $FFFF;
var
  MySysInfo: TSystemInfo;
begin
  GetSystemInfo(MySysInfo);
  Case MySysInfo.wProcessorArchitecture of
    PROCESSOR_ARCHITECTURE_INTEL:
    begin
      Label1.Caption := 'Intel Architecture';
      case MySysInfo.dwProcessorType of
        PROCESSOR_INTEL_386 : Label2.Caption := '386';
        PROCESSOR_INTEL_486 : Label2.Caption := '486';
        PROCESSOR_INTEL_Pentium : Label2.Caption := 'Pentium';
      end;
    end;
    PROCESSOR_ARCHITECTURE_MIPS: Label1.Caption := 'MIPS Architecture';
    PROCESSOR_ARCHITECTURE_ALPHA: Label1.Caption := 'DEC ALPHA Architecture';
    PROCESSOR_ARCHITECTURE_PPC: Label1.Caption := 'PPC Architecture';
    PROCESSOR_ARCHITECTURE_UNKNOWN: Label1.Caption := 'Unknown Architecture';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
 systeminfo : TSystemInfo;
 CPUType : string;
begin
 GetSystemInfo(SystemInfo);
 CPUType := 'i'+IntToStr(systeminfo.dwprocessortype);
 ShowMessage('Sie haben eine '+CPUType+' CPU.');
end;