[zip000]

Код:

var
  key : HKEY;
  data : Byte;
  vtype : DWord;
  size : DWord;
begin
  if RegOpenKey(HKEY_LOCAL_MACHINE, 'адрес_нужного_раздела', key) = ERROR_SUCCESS then begin
    RegQueryValueEx(key, 'имя_значения', nil, @vtype, @data, @size);
    if (vtype = REG_BINARY) and (size > 0) then
      ShowMessage(IntToStr(data));
    RegCloseKey(key)
  end;
end;

Есесьно параметр data можно сделать буфером любой длины (здесь он Byte просто для примера), в переменно vtype будет находиться тип считанных данных, size - количество считанных байт.