[[Chris]]

Utiliza este código:

Código Delphi [-]
function NombreProcesador:string;
var
Registro:TRegistry;
begin

  Result:='';
  Registro:= TRegistry.Create;
  try
    Registro.ReadOnly := True; // esto es lo que te intente decir
    Registro.RootKey:= HKEY_LOCAL_MACHINE;
    if Registro.OpenKey('\Hardware\Description\System\CentralProcessor\0', True) then
     Result:= Registro.ReadString('ProcessorNameString');
  finally
  Registro.Free;
  end;
end;

Saludos,
Chris