Function TGProcess.GetCPUSpeed: String;
Var
  gHKEY       : HKEY;
  gSize       : Integer;
  gResult     : pChar;
Begin
  GetMem(gResult, MAX_PATH+1);
  RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'HARDWARE\DESCRIPTION\System\CentralProcessor\0', 0, KEY_QUERY_VALUE, gHKEY);
  gSize := 2048;
  RegQueryValueEx(gHKEY, '~MHz', NIL, NIL, pByte(gResult), @gSize);
  RegCloseKey(gHKEY);
  Result := pChar(gResult);
  FreeMem(gResult);
End;