Problemas de Privilegios en Delphi

[gersojn]

Hola, he estado trabajando en un aplicacion en delphi2010, la cual lleva un control de procesos internos de una aplicacion y todo anda de maravilla con ello.

Pero esta aplicacion debe mostrar la velocidad del procesador y el nombre del procesador, para obtener el nombre del procesador utilizo la siguiente funcion:

Código Delphi [-]
function NombreProcesador:string;
var
Registro:TRegistry;
begin
  Result:='';
  Registro:= TRegistry.Create;
  try
    Registro.RootKey:= HKEY_LOCAL_MACHINE;
    if Registro.OpenKey('\Hardware\Description\System\CentralProcessor\0', True) then
     Result:= Registro.ReadString('ProcessorNameString');
  finally
  Registro.Free;
  end;
end;

Bueno el problema es que al compilar un Tlabel deberia mostrar el nombre del procesador, pero simplemente no muestra nada.

Despues ejecute el .exe generado por el proyecto mediante ejecutar como administrador y me desplego excelete el nombre del procesador, de igual forma la velocidad del procesador.

Esta aplicacion es para una tarea de mi clase de programacion, pero lamentablemente mi catedratico dice que la aplicacion debe mostrar esta informacion sin tener que ejecutarla como administrador.

Si alguien tiene una idea de como solucionar esto, le agradeceria mucho, de antemano muchas gracias.

P.D. Trabajo en Windows 7 Ultimate 32 bits, procesador Intel(R) Core(TM) i3 CPU.