procedure TForm1.Button1Click(Sender: TObject);
var RS: TResourceStream;
    R: TReader;

function ReadProp(R: TReader): string;
begin
  Result := '';
  case R.NextValue of
    vaInt8, vaInt16, vaInt32: Result := IntToStr(R.ReadInteger);
    vaExtended: Result := FloatToStr(R.ReadFloat);
    vaString:   Result := R.ReadString;
  else R.SkipValue;
  end;
end;

procedure ReadRes(PropPath: string; R: TReader);
var S: string;
begin
  R.ReadStr;
  if PropPath = ''
    then S := R.ReadStr
    else S := PropPath + '.' + R.ReadStr;
  while not R.EndOfList do
    Memo1.Lines.Add(S + '.' + R.ReadStr + '=' + ReadProp(R));
  R.CheckValue(vaNull);
  while not r.EndOfList do begin
    ReadRes(S, R);
    R.CheckValue(vaNull);
  end;
end;

begin
  RS := TResourceStream.Create(HInstance, 'TForm1', RT_RCDATA);
  R := TReader.Create(RS, 1024);
  try
    Memo1.Clear;
    R.ReadSignature;
    ReadRes('', R);
  finally
    R.Free;
    RS.Free;
  end;
end;