Как получить информацию о процессоре?

Code:

function CPUType: string;

var

Reg: TRegistry;

begin

CPUType := '';

Reg := TRegistry.Create;

try

   Reg.RootKey := HKEY_LOCAL_MACHINE;

   if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then

     CPUType := Reg.ReadString('Identifier');

finally

   Reg.Free;

end;

end;