Trouver le nom du CPU

uses
Registry;

function CPUname: string;
var
Reg: TRegistry;
begin
CPUname := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('HardwareDescriptionSystemCentralProcessor', False) then
CPUname := Reg.ReadString('Ident if ier');
finally
Reg.Free;
end;
end;