Как найти скорость процессора?

Code:

uses registry;

...

function GetCpuMhz: Word;

begin

with tregistry.Create do

begin

   rootkey := HKEY_LOCAL_MACHINE;

   openkey('\hardware\description\system\centralprocessor\0\', false);

   result := readinteger('~mhz');

   free;

end;

end;