[NumLock]

Код:

var
  LKey: HKEY;
  DataType: DWORD;
  DataSize: DWORD;
  i: Integer;
begin
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\Skype\Installer'), 0,
  KEY_QUERY_VALUE, LKey)<>ERROR_SUCCESS then RaiseLastOSError;
  try
    DataSize:=SizeOf(Integer);
    if RegQueryValueEx(LKey, PChar('BINGSRCHFF'), nil,
    @DataType, @i, @DataSize)<>ERROR_SUCCESS then RaiseLastOSError;
    Label1.Caption:=IntToStr(i);
  finally
    RegCloseKey(LKey);
  end;
end;