[gersojn]

muchas gracias por las respuestas, ya funciona excelente el programa con la funcion anterior

Código Delphi [-]
function NombreProcesador:string; 
var 
  Registro:TRegistry; 
begin    
  Result:= '';   
  Registro:= TRegistry.Create;   
  Registro.Access:= KEY_READ;   
  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;

Muchas gracias por la ayuda.