Hallo,
einfach den entsprechenden Wert aus der Registry auslesen:
Delphi-Quellcode:
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Hardware\Description\System\CentralProcessor\0', False);
FstrCPUName01 := Reg.ReadString('ProcessorNameString');
FstrCPUName02 := Reg.ReadString('Identifier');
FstrCPUName03 := Reg.ReadString('VendorIdentifier');