Как читать REG_RESOURCE_LIST значение

procedure TForm1.Button1Click(Sender: TObject);
begin
ReadREG_MULTI_SZ(HKEY_LOCAL_MACHINE,'HARDWARE\\RESOURCEMAP\\System Resources\\Physical Memory','.Translated', Memo1.Lines);
end;
 
procedure TForm1.ReadREG_MULTI_SZ(const CurrentKey: HKey; const Subkey,
  ValueName: string; Strings: TStrings);
  var
  valueType: DWORD;
  valueLen: DWORD;
  p, buffer: PChar;
  key: HKEY;
begin
 
  // Clear TStrings
  Strings.Clear; 
  // open the specified key
  if RegOpenKeyEx(CurrentKey, 
                  PChar(Subkey), 
                  0, KEY_READ, key) = ERROR_SUCCESS then 
  begin 
    // retrieve the type and data for a specified value name
    SetLastError(RegQueryValueEx(key, 
                 PChar(ValueName), 
                 nil, 
                 @valueType, 
                 nil, 
                 @valueLen)); 
    if GetLastError = ERROR_SUCCESS then 
      if valueType = 8 then 
      begin 
        GetMem(buffer, valueLen); 
        try 
          // receive the value's data (in an array).
          RegQueryValueEx(key, 
                          PChar(ValueName), 
                          nil, 
                          nil, 
                          PBYTE(buffer),
                          @valueLen); 
          // Add values to stringlist
          p := buffer; 
          while p^ <> #0 do 
          begin 
            Strings.Add(p); 
            Inc(p, lstrlen(p) + 1) 
          end 
        finally 
          FreeMem(buffer) 
        end 
      end 
      else 
        raise ERegistryException.Create('Stringlist expected/ String Liste erwartet...') 
    else 
      raise ERegistryException.Create('Cannot Read MULTI_SZ Value/'+ 
        'Kann den MULTI_SZ Wert nicht lesen...'); 
  end;
end;

{$mode delphi}
uses windows, registry;
 
const
   pszSubKey = 'Hardware\ResourceMap\System Resources\Physical Memory';
   pszValueName = '.Translated';
var
   myKey : HKEY;
 
   dwType, dwLength, dwIndex : DWORD;
   lpData, pmi : LPBYTE;
   dwBusCount, dwResourceCount : DWORD;
   ulTotalSize : ULONGLONG;
begin
   if RegOpenKey(HKEY_LOCAL_MACHINE, pszSubKey, myKey) = ERROR_SUCCESS then
   begin
      dwType := 0;
      lpData := nil;
      dwLength := 0;
 
      if RegQueryValueEx(myKey, pszValueName, 0, @dwType, nil, @dwLength) = ERROR_SUCCESS then
      begin
         GetMem(lpData, dwLength);
         RegQueryValueEx(myKey, pszValueName, 0, @dwType, lpData, @dwLength);
         RegCloseKey(myKey);
 
         dwBusCount := LPDWORD(lpData)^;
         if dwBusCount = 1 then // Это значение должно быть  = 1, иначе ошибка
         begin
            dwResourceCount := LPDWORD(lpData + 16)^;
            pmi := lpData + 24;
            ulTotalSize := 0;
 
            for dwIndex := 0 to dwResourceCount - 1 do
            begin
               Inc(ulTotalSize, LPDWORD(pmi + 8)^);
               Inc(pmi, 16);
            end;
         end;
         FreeMem(lpData);
      end;
   end;
   writeln(ulTotalSize div 1024 div 1024);
end.